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.17 -r1.18
--- openacs-4/packages/evaluation/tcl/evaluation-procs-postgresql.xql	27 Oct 2004 00:49:02 -0000	1.17
+++ openacs-4/packages/evaluation/tcl/evaluation-procs-postgresql.xql	17 Dec 2004 18:11:00 -0000	1.18
@@ -2,54 +2,6 @@
 
 <queryset>
    <rdbms><type>postgresql</type><version>7.3</version></rdbms>
-
-<fullquery name="evaluation::new_grade.content_item_new">      
-      <querytext>
-
-			select evaluation__new_item (
-		    :item_id, --item_id
-			:item_name,
-			null,
-			:creation_user,
-			:package_id,
-			now(),
-			:creation_ip,
-			:name,
-			:description,
-			'text/plain',
-			null,
-			null,
-			'text',
-			'content_item', -- item_subtype
-			'evaluation_grades' -- content_type
-			);
-
-      </querytext>
-</fullquery>
-
-<fullquery name="evaluation::new_grade.content_revision_new">      
-      <querytext>
-
-			select evaluation__new_grade (
-			:item_id,		
-			:revision_id,	
-			:name, 	
-			:plural_name,
-			:weight,		
-			'evaluation_grades',	
-			now(), --creation date	
-			:creation_user, 
-			:creation_ip,	
-			:revision_name,			
-			:description,	
-			now(),  --publish date
-		    null, --nls_language
-			'text/plain' --mime_type
-			);
-	
-      </querytext>
-</fullquery>
-
 <fullquery name="evaluation::set_live.content_set_live_revision">      
       <querytext>
 
@@ -150,59 +102,6 @@
       </querytext>
 </fullquery>
 
-<fullquery name="evaluation::new_task.content_item_new">      
-      <querytext>
-
-			select evaluation__new_item (
-		    :item_id, --item_id
-			:item_name,
-			null, --locale
-			:creation_user,
-			:package_id,
-   		        current_timestamp,
-			:creation_ip,
-			:name,
-			:description,
-			:mime_type, --mime_type
-			null, --nls_language
-			null, --text
-			:storage_type, --storage_type
-			'content_item', -- item_subtype
-			'evaluation_tasks' -- content_type
-			);
-
-      </querytext>
-</fullquery>
-
-<fullquery name="evaluation::new_task.content_revision_new">      
-      <querytext>
-
-	select evaluation__new_task (
-			:item_id,		
-			:revision_id,	
-			:name,
-			:number_of_members,
-			:grade_item_id,
-			:description,  	
-			:weight,	
-			:due_date,
-			:late_submit_p,
-			:online_p,
-			:requires_grade_p,
-			:estimated_time,
-			'evaluation_tasks',	
-			now(), --creation date	
-			:creation_user, 
-			:creation_ip,	
-			:title,			
-			now(),  --publish date
-			null,  -- nls_language
-			:mime_type --mime_type
-			);
-
-      </querytext>
-</fullquery>
-
 <fullquery name="evaluation::new_task.update_item_name">      
       <querytext>
 
@@ -214,50 +113,6 @@
       </querytext>
 </fullquery>
 
-<fullquery name="evaluation::new_solution.content_item_new">      
-      <querytext>
-
-			select evaluation__new_item (
-		    :item_id, --item_id
-			:item_name,
-			null, --locale
-			:creation_user,
-			:package_id,
-		        current_timestamp,
-			:creation_ip,
-			:title,
-			'task solution',
-			:mime_type, --mime_type
-			null, --nls_language
-			null, --text
-			:storage_type, --storage_type
-			'content_item', -- item_subtype
-			'evaluation_tasks_sols' -- content_type
-			);
-
-      </querytext>
-</fullquery>
-
-<fullquery name="evaluation::new_solution.content_revision_new">      
-      <querytext>
-
-	select evaluation__new_task_sol (
-			:item_id,		
-			:revision_id,	
-			:task_item_id,
-			'evaluation_tasks_sols',	
-			:creation_date, --creation date	
-			:creation_user, 
-			:creation_ip,	
-			:title,			
-			:publish_date,  --publish date
-			null,  -- nls_language
-			:mime_type --mime_type
-			);
-
-      </querytext>
-</fullquery>
-
 <fullquery name="evaluation::new_solution.update_item_name">      
       <querytext>
 
@@ -269,51 +124,6 @@
       </querytext>
 </fullquery>
 
-<fullquery name="evaluation::new_answer.content_item_new">      
-      <querytext>
-
-			select evaluation__new_item (
-		    :item_id, --item_id
-			:item_name,
-			null, --locale
-			:creation_user,
-			:package_id,
-		        current_timestamp,
-			:creation_ip,
-			:title,
-			'evaluation answer',
-			:mime_type, --mime_type
-			null, --nls_language
-			null, --text
-			:storage_type, --storage_type
-			'content_item', -- item_subtype
-			'evaluation_answers' -- content_type
-			);
-
-      </querytext>
-</fullquery>
-
-<fullquery name="evaluation::new_answer.content_revision_new">      
-      <querytext>
-
-	select evaluation__new_answer (
-			:item_id,		
-			:revision_id,	
-			:task_item_id,
-		    :party_id,
-			'evaluation_answers',	
-			:creation_date, --creation date	
-			:creation_user, 
-			:creation_ip,	
-			:title,			
-			:publish_date,  --publish date
-			null,  -- nls_language
-			:mime_type --mime_type
-			);
-
-      </querytext>
-</fullquery>
-
 <fullquery name="evaluation::new_answer.update_item_name">      
       <querytext>
 
@@ -398,50 +208,6 @@
       </querytext>
 </fullquery>
 
-<fullquery name="evaluation::new_grades_sheet.content_item_new">      
-      <querytext>
-
-			select evaluation__new_item (
-		    :item_id, --item_id
-			:item_name,
-			null, --locale
-			:creation_user,
-			:package_id,
-		        current_timestamp,
-			:creation_ip,
-			:title,
-			'grades sheet',
-			:mime_type, --mime_type
-			null, --nls_language
-			null, --text
-			:storage_type, --storage_type
-			'content_item', -- item_subtype
-			'evaluation_grades_sheets' -- content_type
-			);
-
-      </querytext>
-</fullquery>
-
-<fullquery name="evaluation::new_grades_sheet.content_revision_new">      
-      <querytext>
-
-	select evaluation__new_grades_sheet (
-			:item_id,		
-			:revision_id,	
-			:task_item_id,
-			'evaluation_grades_sheets',	
-			:creation_date, --creation date	
-			:creation_user, 
-			:creation_ip,	
-			:title,			
-			:publish_date,  --publish date
-			null,  -- nls_language
-			:mime_type --mime_type
-			);
-
-      </querytext>
-</fullquery>
-
 <fullquery name="evaluation::notification::get_url.get_grade_id">      
       <querytext>
 
@@ -548,116 +314,6 @@
       </querytext>
 </fullquery>
 
-<fullquery name="evaluation::apm::create_folders.create_evaluation_folders">      
-      <querytext>
-
-	    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'
-					   );
-
-      </querytext>
-</fullquery>
-
-<fullquery name="evaluation::apm::create_folders.exams_item_new">      
-      <querytext>
-
-	    select evaluation__new_item (
-					 :exams_item_id, --item_id
-					 :exams_item_name,
-					 null,
-					 :creation_user,
-					 :package_id,
-  	  			         current_timestamp,
-					 :creation_ip,
-					 :exams_name,
-					 :exams_desc,
-					 'text/plain',
-					 null,
-					 null,
-					 'text',
-					 'content_item', -- item_subtype
-					 'evaluation_grades' -- content_type
-					 );
-
-      </querytext>
-</fullquery>
-
-<fullquery name="evaluation::apm::create_folders.exams_revision_new">      
-      <querytext>
-
-	    select evaluation__new_grade (
-					  :exams_item_id,		
-					  :exams_revision_id,	
-					  :exams_singular_name,
-					  :exams_name, 	
-					  40,		
-					  'evaluation_grades',	
-					  now(), --creation date	
-					  :creation_user, 
-					  :creation_ip,	
-					  :exams_revision_name,			
-					  :exams_desc,	
-					  now(),  --publish date
-					  null, --nls_language
-					  'text/plain' --mime_type
-					  );
-
-      </querytext>
-</fullquery>
-
-<fullquery name="evaluation::apm::create_folders.exams_live_revision">      
-      <querytext>
-
-	    select content_item__set_live_revision (
-						    :exams_revision_id			
-						    );
-
-      </querytext>
-</fullquery>
 <fullquery name="evaluation::apm::create_folders.projects_item_new">      
       <querytext>
 
@@ -781,72 +437,6 @@
       </querytext>
 </fullquery>
 
-<fullquery name="evaluation::apm::delete_contents.delte_grades_sheets_folder">      
-      <querytext>
-
-	    select evaluation__delete_folder (
-					      :ev_grades_sheets_fid,
-					      'evaluation_grades_sheets'
-					      );
-
-      </querytext>
-</fullquery>
-
-<fullquery name="evaluation::apm::delete_contents.delte_grades_folder">      
-      <querytext>
-
-	    select evaluation__delete_folder (
-					      :ev_grades_fid,
-					      'evaluation_grades'
-					      );
-
-      </querytext>
-</fullquery>
-
-<fullquery name="evaluation::apm::delete_contents.delte_task_folder">      
-      <querytext>
-
-	    select evaluation__delete_folder (
-					      :ev_tasks_fid,
-					      'evaluation_tasks'
-					      );
-
-      </querytext>
-</fullquery>
-
-<fullquery name="evaluation::apm::delete_contents.delte_task_sols_folder">      
-      <querytext>
-
-	    select evaluation__delete_folder (
-					      :ev_tasks_sols_fid,
-					      'evaluation_tasks_sols'
-					      );
-
-      </querytext>
-</fullquery>
-
-<fullquery name="evaluation::apm::delete_contents.delte_answers_folder">      
-      <querytext>
-
-	    select evaluation__delete_folder (
-					      :ev_answers_fid,
-					      'evaluation_answers'
-					      );
-
-      </querytext>
-</fullquery>
-
-<fullquery name="evaluation::apm::delete_contents.delte_evals_folder">      
-      <querytext>
-
-	    select evaluation__delete_folder (
-					      :ev_student_evals_fid,
-					      'evaluation_student_evals'
-					      );
-
-      </querytext>
-</fullquery>
-
 <fullquery name="evaluation::public_answers_to_file_system.get_answers_for_task">      
       <querytext>