Index: openacs-4/packages/new-portal/tcl/portal-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.xql,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/new-portal/tcl/portal-procs.xql	18 Apr 2002 18:01:31 -0000	1.27
+++ openacs-4/packages/new-portal/tcl/portal-procs.xql	23 Apr 2002 16:14:50 -0000	1.28
@@ -621,6 +621,15 @@
   </querytext>
 </fullquery> 
 
+<fullquery name="portal::datasource_available_p.select">      
+  <querytext>
+    select count(*) 
+    from portal_datasource_avail_map 
+    where datasource_id = :datasource_id 
+    and portal_id = :portal_id
+  </querytext>
+</fullquery> 
+
 <fullquery name="portal::make_datasource_unavailable.delete">      
   <querytext>
     delete from portal_datasource_avail_map