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.11 -r1.12
--- openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	24 Feb 2005 13:33:01 -0000	1.11
+++ openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	14 Jul 2006 00:43:38 -0000	1.12
@@ -134,6 +134,19 @@
     {-name:required}
     -contract
 } {
+    Retrieves the ID for a service contract.  If the contract is specified
+    then the ID is retrieved for the specified contract, otherwise all
+    service contract IDs will be retrieved that match the specified owner
+    and implementation name.
+
+    @param owner Owner of the service contract.
+    @param name Implementation name.
+    @param contract Implementation contract name.
+    @return Returns the ID for a specified service contract, or all IDs for
+    for service contracts that match the owner and implementation name of
+    a service contract,
+    if the contract is not specified.
+} {
     if {[exists_and_not_null contract]} {
         return [db_string select_impl_id_with_contract {}]
     } else {