Index: openacs-4/packages/dotlrn/www/admin/class-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/admin/class-delete.tcl	8 Aug 2006 21:26:28 -0000	1.2
+++ openacs-4/packages/dotlrn/www/admin/class-delete.tcl	28 Jun 2015 11:58:50 -0000	1.3
@@ -36,10 +36,10 @@
     #here's where we actually do the delete.
     dotlrn_class::delete -class_key $class_key
 } -after_submit {
-    ad_returnredirect classes?[export_vars {department_key}]
+    ad_returnredirect [export_vars -base classes {department_key}]
     ad_script_abort
-} -cancel_url classes?[export_vars {department_key}]
+} -cancel_url [export_vars -base classes {department_key}]
 
 
 set title "[_ dotlrn.Delete_Empty_Class]"
-set context_bar [list [list classes?[export_vars {department_key}] [parameter::get -localize -parameter classes_pretty_plural]] Delete]
+set context_bar [list [[export_vars -base classes {department_key}] [parameter::get -localize -parameter classes_pretty_plural]] Delete]