Index: openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	30 Nov 2001 03:41:17 -0000	1.4
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	10 Dec 2001 22:48:57 -0000	1.5
@@ -1,47 +1,49 @@
-
-
 ad_page_contract {
     Create a New Class Instance
 
     @author Ben Adida (ben@openforce.net)
     @creation-date 2001-10-05
-} {
+    @version $Id$
+} -query {
     class_key
+    {referer ""}
 }
 
 form create add_class_instance
 
-element create add_class_instance pretty_name \
-	      -label "Name" -datatype text -widget text -html { size 60 }
-
 element create add_class_instance year \
-        -label "Year" -datatype text -widget text -html { size 40 }
+    -label "Year" -datatype text -widget text -html {size 50}
 
 element create add_class_instance term \
-        -label "Term" -datatype text -widget text -html { size 40 }
+    -label "Term" -datatype text -widget text -html {size 50}
 
 element create add_class_instance description \
-        -label "Description" -datatype text -widget textarea -html {rows 5 cols 60 wrap soft}
+    -label "Description" -datatype text -widget textarea -html {rows 5 cols 60 wrap soft}
 
 element create add_class_instance class_key \
-        -label "Class Key" -value $class_key -datatype text -widget hidden
+    -label "Class Key" -value $class_key -datatype text -widget hidden
 
+element create add_class_instance referer \
+    -label "Referer" -value $referer -datatype text -widget hidden
 
 if {[form is_valid add_class_instance]} {
-    template::form get_values add_class_instance class_key pretty_name year term description
+    template::form get_values add_class_instance class_key year term description referer
 
-    set class_instance_id [dotlrn_class::new_instance -description $description -class_type $class_key -class_name $pretty_name -term $term -year $year]
+    set class_instance_id [dotlrn_class::new_instance -description $description -class_type $class_key -term $term -year $year]
 
-    ad_returnredirect "one-class?class_key=$class_key"
-    return
+    if {[empty_string_p $referer]} {
+        set referer "one-class?class_key=$class_key"
+    }
+
+    ad_returnredirect $referer
+    ad_script_abort
 }
 
 set class_name [dotlrn_community::get_community_type_name $class_key]
 
 set context_bar [list \
-	{classes Classes} \
-	[list "one-class?class_key=$class_key" "$class_name"] \
-	{New Instance}]
+        {classes Classes} \
+        [list "one-class?class_key=$class_key" "$class_name"] \
+        {New Instance}]
 
 ad_return_template
-