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.9 -r1.10
--- openacs-4/contrib/packages/portal/tcl/portal-procs.xql	12 Mar 2004 04:54:04 -0000	1.9
+++ openacs-4/contrib/packages/portal/tcl/portal-procs.xql	17 Mar 2004 02:15:53 -0000	1.10
@@ -28,7 +28,7 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="portal::get_portal_id.select_portal_id">
+    <fullquery name="portal::get_user_portal_id.select_portal_id">
         <querytext>
             select portal_id
             from portals
@@ -37,6 +37,14 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="portal::get_user_portal_id.select_user_name">
+        <querytext>
+          select first_names || ' ' || last_name as user_name
+          from persons
+          where person_id = :owner_id
+        </querytext>
+    </fullquery>
+
     <fullquery name="portal::set_values.update_portal">
         <querytext>
             update portals