Index: openacs-4/packages/acs-tcl/tcl/site-node-apm-integration-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-node-apm-integration-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/site-node-apm-integration-procs.tcl	1 Nov 2003 08:45:37 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/site-node-apm-integration-procs.tcl	7 Feb 2005 23:17:38 -0000	1.9
@@ -48,7 +48,7 @@
                 site_node::delete -node_id $site_node(node_id)
                 site_node::update_cache -node_id $site_node(node_id)
             }
-            
+
             apm_package_instance_delete $package_id
         }
     }
@@ -61,7 +61,11 @@
         package_id. returns empty string if not found.
     } {
         if {[empty_string_p $package_id]} {
-            set package_id [ad_conn package_id]
+            if {[ad_conn isconnected]} { 
+                set package_id [ad_conn package_id]
+            } else { 
+                error "Not in a connection and no package_id provided"
+            } 
         }
 
         return [db_string select_child_package_id {} -default ""]