Index: openacs-4/packages/dotlrn-ecommerce/lib/section.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/section.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-ecommerce/lib/section.adp	27 Jul 2005 15:49:20 -0000	1.2
+++ openacs-4/packages/dotlrn-ecommerce/lib/section.adp	27 Jul 2005 16:11:51 -0000	1.3
@@ -1,6 +1,6 @@
 <formtemplate id="add_section"></formtemplate>
 
-<if @adult_category_id@ defined>
+<if @adult_category_id@ defined and @submitted_p@ eq 0>
   <script type="text/javascript">
     <!--
     for (var i=0; i< document.add_section.categories.length; i++) {
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 -r1.16 -r1.17
--- openacs-4/packages/dotlrn-ecommerce/lib/section.tcl	27 Jul 2005 15:49:20 -0000	1.16
+++ openacs-4/packages/dotlrn-ecommerce/lib/section.tcl	27 Jul 2005 16:11:51 -0000	1.17
@@ -10,16 +10,16 @@
     set grade_tree_id [parameter::get -parameter GradeCategoryTree -default 0]
 
     if { $grade_tree_id } {
-	db_1row community {
+	if { [db_0or1row community {
 	    select community_id
 	    from dotlrn_ecommerce_section
 	    where section_id = :section_id
+	}] } {
+	    if { $categories == [list [list $community_id [ad_conn package_id]]] } {
+		set categories ""
+	    }
 	}
 
-	if { $categories == [list [list $community_id [ad_conn package_id]]] } {
-	    set categories ""
-	}
-
 	lappend categories 0
 	
 	return [db_string selected_grades [subst {
@@ -785,3 +785,5 @@
 
 # Used by en_US version of new_class_instance message
 set class_instances_pretty_name [parameter::get -localize -parameter class_instances_pretty_name]
+set f [rp_getform]
+ns_set print $f
\ No newline at end of file
Index: openacs-4/packages/dotlrn-ecommerce/www/admin/section-add-edit.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/section-add-edit.adp,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-ecommerce/www/admin/section-add-edit.adp	21 Jul 2005 21:19:01 -0000	1.3
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/section-add-edit.adp	27 Jul 2005 16:11:51 -0000	1.4
@@ -5,11 +5,11 @@
 
 <if @section_id@ eq "">
    <include src=/packages/dotlrn-ecommerce/lib/section
-   course_id="@course_id@" return_url="@return_url@" item_id="@item_id@" sessions="@sessions@" />
+   course_id="@course_id@" return_url="@return_url@" item_id="@item_id@" sessions="@sessions@" submitted_p="@submitted_p@" />
 </if>
 <else>
    <include src=/packages/dotlrn-ecommerce/lib/section
    section_id=@section_id@ course_id="@course_id@"
-   return_url="@return_url@" item_id="@item_id@" sessions="@sessions@" />
+   return_url="@return_url@" item_id="@item_id@" sessions="@sessions@" submitted_p="@submitted_p@" />
 </else>
 
Index: openacs-4/packages/dotlrn-ecommerce/www/admin/section-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/section-add-edit.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn-ecommerce/www/admin/section-add-edit.tcl	16 Jul 2005 12:51:06 -0000	1.6
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/section-add-edit.tcl	27 Jul 2005 16:11:51 -0000	1.7
@@ -9,15 +9,22 @@
     {return_url "" }
 
     {sessions:integer,multiple {}}
+    section_name:optional
 }
 
 dotlrn_catalog::get_course_data -course_id $course_id
 set item_id [dotlrn_catalog::get_item_id -revision_id $course_id]
 
-if {[empty_string_p $section_id]} {
+if { [ad_form_new_p -key section_id] } {
     set page_title "Add Section"
 } else {
     set page_title "Edit Section"
 }
 
-set context [list $page_title]
\ No newline at end of file
+set context [list $page_title]
+
+if { [info exists section_name] } {
+    set submitted_p 1
+} else {
+    set submitted_p 0
+}
\ No newline at end of file