Index: openacs-4/packages/dotlrn/www/admin/term-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/term-new.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/admin/term-new.tcl	17 Dec 2001 23:02:56 -0000	1.1
+++ openacs-4/packages/dotlrn/www/admin/term-new.tcl	10 Jan 2002 19:30:18 -0000	1.2
@@ -5,7 +5,7 @@
     @creation-date 2001-12-13
     @version $Id$
 } -query {
-    {referer ""}
+    {referer "terms"}
 } -properties {
     context_bar:onevalue
 }
@@ -32,10 +32,6 @@
 
     dotlrn_term::new -term_name $term_name -term_year $term_year -start_date $start_date -end_date $end_date
 
-    if {[empty_string_p $referer]} {
-        set referer "terms"
-    }
-
     ad_returnredirect $referer
     ad_script_abort
 }