Index: openacs-4/packages/evaluation-portlet/lib/tasks-chunk-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/lib/tasks-chunk-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/evaluation-portlet/lib/tasks-chunk-oracle.xql 13 Jan 2005 23:44:11 -0000 1.1
@@ -0,0 +1,141 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ select et.task_name, et.number_of_members, et.task_id,
+ to_char(et.due_date,'YYYY-MM-DD HH24:MI:SS') as due_date_ansi,
+ et.online_p,
+ et.late_submit_p,
+ et.task_item_id,
+ et.item_id,
+ et.requires_grade_p, et.description, et.grade_item_id,
+ nvl(round(cr.content_length/1024,0),0) as content_length,
+ et.data as task_data,
+ crmt.label as pretty_mime_type,
+ cr.title as task_title,
+ et.task_id as revision_id
+ from cr_revisions cr,
+ evaluation_tasksi et,
+ cr_items cri,
+ cr_mime_types crmt
+ where cr.revision_id = et.revision_id
+ and et.grade_item_id = :grade_item_id
+ and cri.live_revision = et.task_id
+ and et.mime_type = crmt.mime_type
+ $assignments_orderby
+
+
+
+
+
+
+
+ select et.task_name, et.number_of_members, et.task_id,
+ to_char(et.due_date,'YYYY-MM-DD HH24:MI:SS') as due_date_ansi,
+ et.online_p,
+ et.late_submit_p,
+ et.item_id,
+ et.task_item_id,
+ et.due_date,
+ et.requires_grade_p, et.description, et.grade_item_id,
+ cr.title as task_title,
+ et.data as task_data,
+ et.task_id as revision_id,
+ nvl(round(cr.content_length/1024,0),0) as content_length,
+ et.late_submit_p,
+ crmt.label as pretty_mime_type
+ from cr_revisions cr,
+ evaluation_tasksi et,
+ cr_items cri,
+ cr_mime_types crmt
+ where cr.revision_id = et.revision_id
+ and grade_item_id = :grade_item_id
+ and cri.live_revision = et.task_id
+ and et.mime_type = crmt.mime_type
+ $assignments_orderby
+
+
+
+
+
+
+
+ select 1 from dual where :due_date > now()
+
+
+
+
+
+
+
+ select nvl((select etg2.group_id from evaluation_task_groups etg2,
+ evaluation_tasks et2,
+ acs_rels map
+ where map.object_id_one = etg2.group_id
+ and map.object_id_two = :user_id
+ and etg2.task_item_id = et2.task_item_id
+ and et2.task_id = :task_id),0)
+ from evaluation_tasks et3
+ where et3.task_id = :task_id
+
+-- select evaluation__party_id(:user_id,:task_id)
+
+
+
+
+
+
+
+ select eg.grade_name, eg.grade_plural_name
+ from evaluation_grades eg, cr_items cri
+ where eg.grade_item_id = :grade_item_id
+ and cri.live_revision = eg.grade_id
+
+
+
+
+
+
+
+ select ets.solution_id
+ from evaluation_tasks_sols ets, cr_items cri
+ where ets.task_item_id = :task_item_id
+ and cri.live_revision = ets.solution_id
+
+
+
+
+
+
+
+ select ea.answer_id
+ from evaluation_answers ea, cr_items cri
+ where ea.task_item_id = :task_item_id
+ and cri.live_revision = ea.answer_id
+ and ea.party_id =
+ ( select
+ CASE
+ WHEN et3.number_of_members = 1 THEN :user_id
+ ELSE
+ (select etg2.group_id from evaluation_task_groups etg2,
+ evaluation_tasks et2,
+ acs_rels map
+ where map.object_id_one = etg2.group_id
+ and map.object_id_two = :user_id
+ and etg2.task_item_id = et2.task_item_id
+ and et2.task_id = :task_id)
+ END as nom
+ from evaluation_tasks et3
+ where et3.task_id = :task_id
+ )
+
+ --evaluation__party_id(:user_id,:task_id)
+
+
+
+
+
Index: openacs-4/packages/evaluation-portlet/tcl/evaluation-portlet-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/tcl/evaluation-portlet-procs-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/evaluation-portlet/tcl/evaluation-portlet-procs-oracle.xql 13 Jan 2005 23:45:21 -0000 1.1
@@ -0,0 +1,30 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ select portal_datasource.delete(:ds_id)
+
+
+
+
+
+
+
+ select portal_datasource.delete(:ds_id)
+
+
+
+
+
+
+
+ select portal_datasource.delete(:ds_id)
+
+
+
+
+
Index: openacs-4/packages/evaluation-portlet/www/evaluation-assignments-portlet-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/www/evaluation-assignments-portlet-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/evaluation-portlet/www/evaluation-assignments-portlet-oracle.xql 13 Jan 2005 23:45:59 -0000 1.1
@@ -0,0 +1,21 @@
+
+
+
+oracle8.1.6
+
+
+
+
+ select eg.grade_plural_name,
+ eg.grade_id,
+ eg.grade_item_id
+ from evaluation_grades eg, acs_objects ao, cr_items cri
+ where cri.live_revision = eg.grade_id
+ and eg.grade_item_id = ao.object_id
+ and ao.context_id in ([join $list_of_package_ids ,])
+ order by grade_plural_name desc
+
+
+
+
+
Index: openacs-4/packages/evaluation-portlet/www/evaluation-evaluations-portlet-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/www/evaluation-evaluations-portlet-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/evaluation-portlet/www/evaluation-evaluations-portlet-oracle.xql 13 Jan 2005 23:46:30 -0000 1.1
@@ -0,0 +1,77 @@
+
+
+
+oracle8.1.6
+
+
+
+
+ select eg.grade_plural_name,
+ eg.grade_id,
+ eg.grade_item_id
+ from evaluation_grades eg, acs_objects ao
+ where exists (select 1 from cr_items
+ where live_revision = eg.grade_id)
+ and eg.grade_item_id = ao.object_id
+ and ao.context_id in ([join $list_of_package_ids ,])
+ order by grade_plural_name desc
+
+
+
+
+
+
+
+ select nvl(
+ sum(round((ese.grade*et.weight*eg.weight)/10000,2)),0) as grade
+ from evaluation_grades eg, evaluation_tasks et, evaluation_student_evals ese, acs_objects ao
+ where et.task_item_id = ese.task_item_id
+ and et.grade_item_id = eg.grade_item_id
+ and eg.grade_item_id = ao.object_id
+ and ao.context_id = [lindex $list_of_package_ids 0]
+ and ese.party_id =
+
+ ( select
+ CASE
+ WHEN et3.number_of_members = 1 THEN $user_id
+ ELSE
+ (select etg2.group_id from evaluation_task_groups etg2,
+ evaluation_tasks et2,
+ acs_rels map
+ where map.object_id_one = etg2.group_id
+ and map.object_id_two = $user_id
+ and etg2.task_item_id = et2.task_item_id
+ and et2.task_id = et.task_id)
+
+ END as nom
+ from evaluation_tasks et3
+ where et3.task_id = et.task_id
+ )
+
+ and exists (select 1 from cr_items where live_revision = eg.grade_id)
+ and exists (select 1 from cr_items where live_revision = et.task_id)
+ and exists (select 1 from cr_items where live_revision = ese.evaluation_id)
+
+
+
+
+
+
+
+ select sum(round(et.weight*eg.weight/100,2))
+ from evaluation_tasks et,
+ evaluation_grades eg,
+ cr_items cri1,
+ cr_items cri2,
+ acs_objects ao
+ where et.grade_item_id = eg.grade_item_id
+ and cri1.live_revision = eg.grade_id
+ and cri2.live_revision = et.task_id
+ and et.requires_grade_p = 't'
+ and ao.object_id = eg.grade_item_id
+ and ao.context_id = :package_id
+
+
+
+
+