Index: openacs-4/packages/acs-subsite/tcl/relation-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/relation-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/tcl/relation-procs.xql	15 Aug 2002 18:09:34 -0000	1.3
+++ openacs-4/packages/acs-subsite/tcl/relation-procs.xql	21 Sep 2003 19:31:18 -0000	1.4
@@ -53,4 +53,16 @@
 </fullquery>
 
  
+<fullquery name="relation::get_id.select_rel_id">      
+      <querytext>
+
+          select rel_id 
+          from   acs_rels 
+          where  rel_type = :rel_type
+          and    object_id_one = :object_id_one
+          and    object_id_two = :object_id_two
+
+      </querytext>
+</fullquery>
+
 </queryset>