Index: openacs-4/packages/evaluation/www/admin/evaluations/evaluation-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/evaluations/evaluation-delete-2.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/evaluation/www/admin/evaluations/evaluation-delete-2.tcl	22 Dec 2004 22:06:40 -0000	1.7
+++ openacs-4/packages/evaluation/www/admin/evaluations/evaluation-delete-2.tcl	21 Mar 2005 15:42:00 -0000	1.8
@@ -14,8 +14,7 @@
 
 if { [string eq $operation [_ evaluation.lt_Yes_I_really_want_to_]] } {
     db_transaction {
-#		db_exec_plsql delete_evaluation { *SQL* }		
-        evaluation::delete_student_eval1 -evaluation_id $evaluation_id
+        evaluation::delete_student_eval -evaluation_id $evaluation_id
     } on_error {
 		ad_return_error "[_ evaluation.lt_Error_deleting_the_ev]" "[_ evaluation.lt_We_got_the_following_]"
 		ad_script_abort