Index: openacs-4/contrib/packages/portal/tcl/portal-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/tcl/portal-procs.xql,v
diff -u -r1.8 -r1.9
--- openacs-4/contrib/packages/portal/tcl/portal-procs.xql	27 Feb 2004 01:13:15 -0000	1.8
+++ openacs-4/contrib/packages/portal/tcl/portal-procs.xql	12 Mar 2004 04:54:04 -0000	1.9
@@ -32,7 +32,7 @@
         <querytext>
             select portal_id
             from portals
-            where party_id = :party_id
+            where owner_id = :owner_id
               and package_id = :package_id
         </querytext>
     </fullquery>
@@ -180,10 +180,19 @@
             select portal_id as master_template_id
             from portals
             where package_id = :package_id
-              and party_id is null
+              and owner_id = 0
         </querytext>
     </fullquery>
 
+    <fullquery name="portal::get_admin_portal_id.get_admin_portal_id">
+        <querytext>
+            select portal_id as admin_portal_id
+            from portals
+            where package_id = :package_id
+              and owner_id = :package_id
+        </querytext>
+    </fullquery>
+
     <fullquery name="portal::get_page_count.select_page_count">
         <querytext>
             select count(*)