Index: openacs-4/packages/evaluation/www/admin/grades/grades-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/grades/grades-delete-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/evaluation/www/admin/grades/grades-delete-2.tcl	10 Jun 2004 21:08:54 -0000	1.2
+++ openacs-4/packages/evaluation/www/admin/grades/grades-delete-2.tcl	10 Sep 2004 19:16:32 -0000	1.3
@@ -9,22 +9,29 @@
 } {
     grade_id:integer,notnull
     return_url
-	operation
+    operation
 } 
 
 if { [string eq $operation "[_ evaluation.lt_Yes_I_really_want_to__1]"] } {
     db_transaction {
 
-		db_exec_plsql delete_grade { *SQL* }		
-		
+	# calendar integration (begin)
+	db_foreach cal_map { *SQL* } {
+	    db_dml delete_mapping { *SQL* }
+	    calendar::item::delete -cal_item_id $cal_item_id
+	}
+	# calendar integration (end)
+
+	db_exec_plsql delete_grade { *SQL* }		
+	
     } on_error {
-		ad_return_error "[_ evaluation.lt_Error_deleting_the_gr]" "[_ evaluation.lt_We_got_the_following__1]"
-		ad_script_abort
+	ad_return_error "[_ evaluation.lt_Error_deleting_the_gr]" "[_ evaluation.lt_We_got_the_following__1]"
+	ad_script_abort
     }
 } else {
     if { [empty_string_p $return_url] } {
-		# redirect to the index page by default
-		set return_url "grades"
+	# redirect to the index page by default
+	set return_url "grades"
     }
 }