Index: openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl	28 Aug 2003 09:41:39 -0000	1.3
+++ openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl	3 Sep 2003 19:51:06 -0000	1.4
@@ -187,6 +187,19 @@
     }
 }
 
+ad_proc -public acs_sc::contract::get_operations {
+    {-contract_name:required}
+} {
+    Get a list of names of operations for the contract.
+} {
+    return [db_list select_operations {
+        select o.operation_name
+        from   acs_sc_operations o, 
+               acs_sc_contracts c
+        where  c.contract_name = :contract_name
+        and    o.contract_id = c.contract_id
+    }]
+}
 
 
 
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.3 -r1.4
--- openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	28 Aug 2003 09:41:39 -0000	1.3
+++ openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	3 Sep 2003 19:51:06 -0000	1.4
@@ -120,7 +120,20 @@
     return [db_string select_impl_id {}]
 }
 
+ad_proc -public acs_sc::impl::get {
+    {-impl_id:required}
+    {-array:required}
+} {
+    Get information about a service contract implementation.
+    
+    @param array Name of an array into which you want the info. 
+                 Available columns are: impl_name, impl_owner_name, impl_contract_name.
 
+    @author Lars Pind (lars@collaboraid.biz)
+} {
+    upvar 1 $array row
+    db_1row select_impl {} -column_array row
+}
 
 #####
 #
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.1 -r1.2
--- openacs-4/packages/acs-service-contract/tcl/implementation-procs.xql	25 Feb 2003 15:15:33 -0000	1.1
+++ openacs-4/packages/acs-service-contract/tcl/implementation-procs.xql	3 Sep 2003 19:51:06 -0000	1.2
@@ -11,4 +11,14 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="acs_sc::impl::get.select_impl">
+    <querytext>
+        select impl_name, 
+               impl_owner_name, 
+               impl_contract_name
+        from   acs_sc_impls
+        where  impl_id = :impl_id
+    </querytext>
+  </fullquery>
+
 </queryset>