Index: openacs-4/packages/dotlrn-ecommerce/www/admin/course-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/course-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-ecommerce/www/admin/course-delete.tcl	31 May 2005 22:04:54 -0000	1.1
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/course-delete.tcl	10 Aug 2005 23:56:08 -0000	1.2
@@ -11,6 +11,7 @@
 
 set page_title "[_ dotlrn-catalog.confirm_delete] $course_key"
 set context [list [list course-list "[_ dotlrn-catalog.course_list]"] "[_ dotlrn-catalog.delete_course]"]
+set course_id [db_string "live_rev" "select latest_revision from cr_items where item_id=:object_id"]
 
 # Check for create permissions over dotlrn-catalog
 set user_id [ad_conn user_id]
@@ -30,7 +31,7 @@
 
 if { ! $sections } {
 
-    ad_form -name delete_course -export {course_key $course_key creation_user $creation_user } -cancel_url "course-list" -form {
+    ad_form -name delete_course -export {course_key $course_key creation_user $creation_user } -cancel_url "course-info?course_id=$course_id" -form {
 	{object_id:text(hidden) 
 	    { value $object_id }
 	}