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 -r1.10 -r1.11
--- openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	20 Apr 2004 21:12:55 -0000	1.10
+++ openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	24 Feb 2005 13:33:01 -0000	1.11
@@ -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 {