Index: openacs-4/packages/evaluation/tcl/evaluation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-procs.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	7 Apr 2005 11:26:58 -0000	1.30
+++ openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	7 Apr 2005 18:57:01 -0000	1.31
@@ -128,7 +128,6 @@
     db_foreach evaluation_delete_grades_sheet { select grades_sheet_id from evaluation_grades_sheets where task_item_id = :task_item_id } {
 	content::revision::delete -revision_id $grades_sheet_id
     }
-    #    db_1row get_task_id { select task_id as tasks_task_id from evaluation_tasks where task_item_id = :task_item_id }
     content::revision::delete -revision_id $task_id
 }
 
@@ -720,6 +719,18 @@
     return $group_id
 } 
 
+ad_proc -public evaluation::delete_evaluation_group {
+    -group_id:required
+} {
+
+	Deletes an evaluation_group
+
+    @param group_id The group_id that will be deleted.
+
+} {
+	db_exec_plsql delete_evaluation_group { *SQL* }
+} 
+
 ad_proc -public evaluation::evaluation_group_name {
     -group_id:required
 } {