Index: openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl,v
diff -u -N -r1.9.4.1 -r1.9.4.2
--- openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	16 Apr 2004 14:38:59 -0000	1.9.4.1
+++ openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	4 Feb 2005 20:12:43 -0000	1.9.4.2
@@ -132,8 +132,13 @@
 ad_proc -public acs_sc::impl::get_id {
     {-owner:required}
     {-name:required}
+    -contract
 } {
-    return [db_string select_impl_id {}]
+    if {[exists_and_not_null contract]} {
+        return [db_string select_impl_id_with_contract {}]
+    } else {
+        return [db_string select_impl_id {}]
+    }
 }
 
 ad_proc -public acs_sc::impl::get {