Index: openacs-4/packages/dotlrn-ecommerce/lib/section.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/section.tcl,v
diff -u -N -r1.31 -r1.32
--- openacs-4/packages/dotlrn-ecommerce/lib/section.tcl	14 Sep 2005 03:41:40 -0000	1.31
+++ openacs-4/packages/dotlrn-ecommerce/lib/section.tcl	12 Jan 2006 13:26:26 -0000	1.32
@@ -110,14 +110,14 @@
 
 if { [parameter::get -parameter AllowFreeRegistration -default 0] } {
     ad_form -extend -name add_section -form {
-	{section_name:text {label "Section Name"}}
+	{section_name:text {label "Section Code"} {help_text {E.g. Section 01, W06}}}
 	{price:currency,to_sql(sql_number) {label "Regular Price"} {html {size 6}}
 	    {help_text {Enter any fees related to this course here. \$0 in this field means there is no related fee.}}
 	}
     }
 } else {
     ad_form -extend -name add_section -form {
-	{section_name:text {label "Section Name"}}
+	{section_name:text {label "Section Code"} {help_text {E.g. Section 01, W06}}}
 	{price:currency,to_sql(sql_number) {label "Regular Price"} {html {size 6}}
 	    {help_text "Enter any fees related to this course here."}
 	}	
@@ -384,6 +384,11 @@
 	"Please select one or more grades"
 	}
 }
+set section_name_validate_message "Section code must be less than [expr {100 - [string length "$course_data(name): Section "]}] characters"
+lappend validate {section_name 
+    {([string length "$course_data(name): Section $section_name"] < 100)} 
+    $section_name_validate_message
+}
 
 ad_form -extend -name add_section -validate $validate -on_request {
     # Set session times