Index: openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl	20 Mar 2001 22:51:56 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl	21 Mar 2001 00:26:19 -0000	1.3
@@ -29,14 +29,11 @@
 } {
     # Obtain the id of the ACS Administration node.
 
-    # DRB: this used to say "and rownum = 1" to limit the return to a single row,
-    # but this is Oracle-specific.  It surprises me that the author thinks
-    # that more than one site_node might have object_id equal to the package_id being
-    # selected, but there's no harm in forcing the query to only return a single row
-    # no matter what.  Using "min()" is portable, at least...
+    # DRB: this used to say "and rownum = 1" but I've changed it to an SQL92 form
+    # that's ummm...portable!
 
     return [db_string acs_admin_node_p {
-	select min(node_id)
+	select case when count(object_id) = 0 then 0 else 1 end
 	from site_nodes
 	where object_id = (select package_id 
 	                   from apm_packages