Index: openacs-4/packages/acs-service-contract/tcl/implementation-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/implementation-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-service-contract/tcl/implementation-procs.xql	10 Sep 2003 14:52:01 -0000	1.3
+++ openacs-4/packages/acs-service-contract/tcl/implementation-procs.xql	24 Feb 2005 13:33:01 -0000	1.4
@@ -11,6 +11,16 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="acs_sc::impl::get_id.select_impl_id_with_contract">
+    <querytext>
+        select impl_id
+        from   acs_sc_impls
+        where  impl_owner_name = :owner
+        and    impl_name = :name
+        and    impl_contract_name = :contract
+    </querytext>
+  </fullquery>
+  
   <fullquery name="acs_sc::impl::get.select_impl">
     <querytext>
         select impl_name,