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.5 -r1.6
--- openacs-4/packages/evaluation/www/admin/evaluations/evaluation-delete-2.tcl	10 Sep 2004 19:16:31 -0000	1.5
+++ openacs-4/packages/evaluation/www/admin/evaluations/evaluation-delete-2.tcl	17 Dec 2004 18:11:01 -0000	1.6
@@ -14,8 +14,8 @@
 
 if { [string eq $operation [_ evaluation.lt_Yes_I_really_want_to_]] } {
     db_transaction {
-		db_exec_plsql delete_evaluation { *SQL* }		
-		
+#		db_exec_plsql delete_evaluation { *SQL* }		
+        evaluation::delete_student_eval1 -evaluation_id $evaluation_id
     } on_error {
 		ad_return_error "[_ evaluation.lt_Error_deleting_the_ev]" "[_ evaluation.lt_We_got_the_following_]"
 		ad_script_abort