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.41.2.1 -r1.41.2.2
--- openacs-4/packages/new-portal/tcl/portal-procs.xql	17 Oct 2002 09:39:44 -0000	1.41.2.1
+++ openacs-4/packages/new-portal/tcl/portal-procs.xql	12 Jun 2003 01:33:30 -0000	1.41.2.2
@@ -747,4 +747,12 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="portal::datasource_delete.get_datasource_id">
+        <querytext>
+           select datasource_id
+           from portal_datasources
+           where name = :name;
+        </querytext>
+    </fullquery>
+
 </queryset>