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.6 -r1.7
--- openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl	27 Oct 2014 16:39:44 -0000	1.6
+++ openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl	7 Aug 2017 23:47:57 -0000	1.7
@@ -192,13 +192,7 @@
 } {
     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
-    }]
+    return [db_list select_operations {}]
 }
 
 
@@ -317,3 +311,9 @@
 	    -is_cachable_p $attributes(is_cachable_p) 
 }
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: