Index: openacs-4/packages/evaluation/www/admin/groups/group-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/groups/group-delete-2.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/evaluation/www/admin/groups/group-delete-2.tcl	5 Apr 2005 17:19:09 -0000	1.6
+++ openacs-4/packages/evaluation/www/admin/groups/group-delete-2.tcl	7 Apr 2005 18:57:01 -0000	1.7
@@ -16,8 +16,7 @@
 if { [string eq $operation "[_ evaluation.lt_Yes_I_really_want_to__2]"] } {
     db_transaction {
 
-		db_exec_plsql delete_group { *SQL* }		
-
+		evaluation::delete_evaluation_group -group_id $evaluation_group_id
 		
     } on_error {
 		ad_return_error "[_ evaluation.lt_Error_deleting_the_ev]" "[_ evaluation.lt_We_got_the_following_]"