Index: openacs-4/packages/dotlrn/www/admin/classes-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/classes-chunk.tcl,v
diff -u -r1.11 -r1.11.2.1
--- openacs-4/packages/dotlrn/www/admin/classes-chunk.tcl 8 Aug 2006 21:26:28 -0000 1.11
+++ openacs-4/packages/dotlrn/www/admin/classes-chunk.tcl 5 Sep 2007 15:40:16 -0000 1.11.2.1
@@ -55,7 +55,7 @@
}
if {![exists_and_not_null referer]} {
- set referer "classes?[export_vars department_key]"
+ set referer "classes"
}
set query select_classes
@@ -82,7 +82,7 @@
set actions ""
if { $can_create } {
- set actions [list "[_ dotlrn.new_class_1]" "[export_vars -base "class-new" -url { department_key referer }]"]
+ set actions [list "[_ dotlrn.new_class_1]" "[export_vars -base "class-new" -url { department_key referer }]" "[_ dotlrn.new_class_1]"]
}
template::list::create \
@@ -117,18 +117,14 @@
label "[_ dotlrn.Actions]"
display_template {
-
\[
- [_ dotlrn.new_class_instance]
+ [_ dotlrn.new_class_instance]
\]
-
-
\[
- [_ dotlrn.lt_Delete_class]
+ [_ dotlrn.lt_Delete_class]
\]
-
}
}