Index: openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/project-manager-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl	23 Jun 2004 17:15:43 -0000	1.9
+++ openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl	30 Jun 2004 16:41:54 -0000	1.10
@@ -477,19 +477,21 @@
         
         
         append category_select "<form method=\"post\" action=\"index\">$export_vars $tree_name: <br /><select name=\"category_id\"><option value=\"\">--Select All--</option>"
-    }
-    
-    foreach cat_item $category_choices($tree_id) {
-            set cat_name [lindex $cat_item 0]
-            set cat_id   [lindex $cat_item 1]
-            
-            if {[exists_and_not_null category_id] && [lsearch $category_id $cat_id] != -1} {
-                set select "selected"
-            } else {
-                set select ""
+
+        if { [exists_and_not_null tree_id] } {
+            foreach cat_item $category_choices($tree_id) {
+                set cat_name [lindex $cat_item 0]
+                set cat_id   [lindex $cat_item 1]
+                
+                if {[exists_and_not_null category_id] && [lsearch $category_id $cat_id] != -1} {
+                    set select "selected"
+                } else {
+                    set select ""
+                }
+                
+                append category_select "<option $select value=\"$cat_id\">$cat_name</option>"
             }
-            
-            append category_select "<option $select value=\"$cat_id\">$cat_name</option>"
+        }
     }
     
     append category_select "</select><input type=\"submit\" value=\"Go\" /></form>"