Index: openacs-4/packages/evaluation/tcl/evaluation-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-procs-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/evaluation/tcl/evaluation-procs-postgresql.xql 12 May 2004 02:07:44 -0000 1.2
+++ openacs-4/packages/evaluation/tcl/evaluation-procs-postgresql.xql 19 May 2004 17:33:08 -0000 1.3
@@ -344,5 +344,311 @@
+
+
+
+
+ select grade_id from evaluation_tasks where task_id = :task_id and content_revision__is_live(task_id) = true
+
+
+
+
+
+
+
+ select eg.grade_name,
+ et.task_name
+ from evaluation_grades eg,
+ evaluation_tasks et
+ where et.task_id = :task_id
+ and et.grade_id = eg.grade_id
+
+
+
+
+
+
+
+ select description as edit_reason,
+ grade as current_grade,
+ evaluation__party_name(party_id,task_id) as party_name
+ from evaluation_student_evalsi
+ where evaluation_id = :evaluation_id
+
+
+
+
+
+
+
+ select evaluation__new_folder (
+ 'evaluation_grades_'||:package_id,
+ 'evaluation_grades_'||:package_id,
+ 'Evaluation grades folder',
+ null,
+ 'evaluation_grades'
+ );
+
+ select evaluation__new_folder (
+ 'evaluation_tasks_'||:package_id,
+ 'evaluation_tasks_'||:package_id,
+ 'Evaluation tasks folder',
+ null,
+ 'evaluation_tasks'
+ );
+
+ select evaluation__new_folder (
+ 'evaluation_tasks_sols_'||:package_id,
+ 'evaluation_tasks_sols_'||:package_id,
+ 'Evaluation tasks solutions folder',
+ null,
+ 'evaluation_tasks_sols'
+ );
+
+ select evaluation__new_folder (
+ 'evaluation_answers_'||:package_id,
+ 'evaluation_answers_'||:package_id,
+ 'Evaluation answers folder',
+ null,
+ 'evaluation_answers'
+ );
+
+ select evaluation__new_folder (
+ 'evaluation_grades_sheets_'||:package_id,
+ 'evaluation_grades_sheets_'||:package_id,
+ 'Grades sheets folder',
+ null,
+ 'evaluation_grades_sheets'
+ );
+
+ select evaluation__new_folder (
+ 'evaluation_student_evals_'||:package_id,
+ 'evaluation_student_evals_'||:package_id,
+ 'Evaluation student evaluations folder',
+ null,
+ 'evaluation_student_evals'
+ );
+
+
+
+
+
+
+
+ select evaluation__new_item (
+ :exams_item_id, --item_id
+ :exams_item_name,
+ null,
+ :creation_user,
+ :package_id,
+ :creation_ip,
+ 'Exams',
+ 'Exams for students',
+ 'text/plain',
+ null,
+ null,
+ 'text',
+ 'content_item', -- item_subtype
+ 'evaluation_grades' -- content_type
+ );
+
+
+
+
+
+
+
+ select evaluation__new_grade (
+ :exams_item_id,
+ :exams_revision_id,
+ 'Exams',
+ -1, -- class_id temporal
+ 40,
+ 'evaluation_grades',
+ now(), --creation date
+ :creation_user,
+ :creation_ip,
+ :exams_revision_name,
+ 'Exams for students',
+ now(), --publish date
+ null, --nls_language
+ 'text/plain' --mime_type
+ );
+
+
+
+
+
+
+
+ select content_item__set_live_revision (
+ :exams_revision_id
+ );
+
+
+
+
+
+
+ select evaluation__new_item (
+ :projects_item_id, --item_id
+ :projects_item_name,
+ null,
+ :creation_user,
+ :package_id,
+ :creation_ip,
+ 'Projects',
+ 'Projects for students',
+ 'text/plain',
+ null,
+ null,
+ 'text',
+ 'content_item', -- item_subtype
+ 'evaluation_grades' -- content_type
+ );
+
+
+
+
+
+
+
+ select content_item__set_live_revision (
+ :projects_revision_id
+ );
+
+
+
+
+
+
+
+ select evaluation__new_item (
+ :tasks_item_id, --item_id
+ :tasks_item_name,
+ null,
+ :creation_user,
+ :package_id,
+ :creation_ip,
+ 'Tasks',
+ 'Tasks for students',
+ 'text/plain',
+ null,
+ null,
+ 'text',
+ 'content_item', -- item_subtype
+ 'evaluation_grades' -- content_type
+ );
+
+
+
+
+
+
+
+ select evaluation__new_grade (
+ :tasks_item_id,
+ :tasks_revision_id,
+ 'Tasks',
+ -1, -- class_id temporal
+ 40,
+ 'evaluation_grades',
+ now(), --creation date
+ :creation_user,
+ :creation_ip,
+ :tasks_revision_name,
+ 'Tasks for students',
+ now(), --publish date
+ null, --nls_language
+ 'text/plain' --mime_type
+ );
+
+
+
+
+
+
+ select content_item__set_live_revision (
+ :tasks_revision_id
+ );
+
+
+
+
+
+
+
+ select evaluation__delete_contents (
+ :package_id
+ );
+
+
+
+
+
+
+
+ select evaluation__delete_folder (
+ :ev_grades_sheets_fid,
+ 'evaluation_grades_sheets'
+ );
+
+
+
+
+
+
+
+ select evaluation__delete_folder (
+ :ev_grades_fid,
+ 'evaluation_grades'
+ );
+
+
+
+
+
+
+
+ select evaluation__delete_folder (
+ :ev_tasks_fid,
+ 'evaluation_tasks'
+ );
+
+
+
+
+
+
+
+ select evaluation__delete_folder (
+ :ev_tasks_sols_fid,
+ 'evaluation_tasks_sols'
+ );
+
+
+
+
+
+
+
+ select evaluation__delete_folder (
+ :ev_answers_fid,
+ 'evaluation_answers'
+ );
+
+
+
+
+
+
+
+ select evaluation__delete_folder (
+ :ev_student_evals_fid,
+ 'evaluation_student_evals'
+ );
+
+
+