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 -N -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
+    }]
+}