Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql	28 Apr 2002 04:08:41 -0000	1.15
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql	24 May 2002 01:58:45 -0000	1.16
@@ -28,7 +28,7 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="dotlrn::get_workspace_portal_id_not_cached.select_user_portal_id">
+    <fullquery name="dotlrn::get_portal_id_not_cached.select_user_portal_id">
         <querytext>
             select portal_id
             from dotlrn_users
@@ -52,4 +52,25 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="dotlrn::set_type_portal_id.insert">
+        <querytext>
+            insert into dotlrn_portal_types_map
+            (type, portal_id)
+            values
+            (:type, :portal_id)
+        </querytext>
+    </fullquery>
+
+    <fullquery name="dotlrn::get_type_from_portal_id.select">
+        <querytext>
+            select type from dotlrn_portal_types_map where portal_id = :portal_id
+        </querytext>
+    </fullquery>
+
+    <fullquery name="dotlrn::get_portal_id_from_type.select">
+        <querytext>
+            select portal_id from dotlrn_portal_types_map where type = :type
+        </querytext>
+    </fullquery>
+
 </queryset>