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.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