Index: openacs-4/packages/dotlrn/www/admin/class-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-new.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/www/admin/class-new.tcl	10 Dec 2001 22:48:57 -0000	1.3
+++ openacs-4/packages/dotlrn/www/admin/class-new.tcl	10 Jan 2002 19:30:18 -0000	1.4
@@ -6,7 +6,7 @@
     @creation-date 2001-08-20
     @version $Id$
 } -query {
-    {referer ""}
+    {referer "classes"}
 }
 
 form create add_class
@@ -28,10 +28,6 @@
 
     set class_key [dotlrn_class::new -class_key $class_key -pretty_name $name -description $description]
 
-    if {[empty_string_p $referer]} {
-        set referer "classes"
-    }
-
     ad_returnredirect $referer
     ad_script_abort
 }