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 -N -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/admin/term-new.tcl	29 Mar 2002 19:14:47 -0000	1.4
+++ openacs-4/packages/dotlrn/www/admin/term-new.tcl	26 Jul 2002 02:03:55 -0000	1.5
@@ -34,12 +34,6 @@
     -widget text \
     -html {size 30}
 
-element create add_term term_year \
-    -label "Year" \
-    -datatype text \
-    -widget text \
-    -html {size 5 maxsize 4}
-
 element create add_term start_date \
     -label "Start Date" \
     -datatype date \
@@ -60,8 +54,13 @@
 
 if {[form is_valid add_term]} {
     form get_values add_term \
-        term_name term_year start_date end_date referer
+        term_name start_date end_date referer
 
+    set term_year [dotlrn_term::start_end_dates_to_term_year \
+        -start_date $start_date \
+        -end_date $end_date
+    ]
+
     dotlrn_term::new \
         -term_name $term_name \
         -term_year $term_year \