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.11 -r1.12
--- openacs-4/packages/dotlrn/www/admin/class-new.tcl	21 May 2002 17:30:02 -0000	1.11
+++ openacs-4/packages/dotlrn/www/admin/class-new.tcl	26 Jul 2002 02:03:55 -0000	1.12
@@ -45,7 +45,7 @@
     -label Name \
     -datatype text \
     -widget text \
-    -html {size 60}
+    -html {size 60 maxlength 100}
 
 element create add_class description \
     -label Description \
Index: openacs-4/packages/dotlrn/www/admin/club-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/club-new.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/dotlrn/www/admin/club-new.tcl	21 May 2002 17:30:02 -0000	1.13
+++ openacs-4/packages/dotlrn/www/admin/club-new.tcl	26 Jul 2002 02:03:55 -0000	1.14
@@ -33,7 +33,7 @@
     -label "Name" \
     -datatype text \
     -widget text \
-    -html {size 60}
+    -html {size 60 maxlength 100}
 
 element create add_club description \
     -label "Description" \
Index: openacs-4/packages/dotlrn/www/admin/department-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/department-edit.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/admin/department-edit.tcl	21 May 2002 17:30:02 -0000	1.4
+++ openacs-4/packages/dotlrn/www/admin/department-edit.tcl	26 Jul 2002 02:03:55 -0000	1.5
@@ -48,7 +48,7 @@
     -label "Name" \
     -datatype text \
     -widget text \
-    -html {size 60}
+    -html {size 60 maxlength 100}
 
 element create edit_department description \
     -label "Description" \
Index: openacs-4/packages/dotlrn/www/admin/term-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/term-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/admin/term-edit.tcl	29 Mar 2002 19:14:47 -0000	1.2
+++ openacs-4/packages/dotlrn/www/admin/term-edit.tcl	26 Jul 2002 02:03:55 -0000	1.3
@@ -50,10 +50,10 @@
     -html {size 30}
 
 element create edit_term term_year \
-    -label "Year" \
+    -label "Year (e.g. 2003, 2003/2004)" \
     -datatype text \
     -widget text \
-    -html {size 5 maxsize 4}
+    -html {size 9 maxlength 9}
 
 element create edit_term start_date \
     -label "Start Date" \
@@ -87,7 +87,7 @@
     dotlrn_term::edit \
         -term_id $term_id \
         -term_name $term_name \
-        -term_year $term_year \
+        -term_year [string trim $term_year] \
         -start_date $start_date \
         -end_date $end_date
 
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.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 \