Index: openacs-4/packages/acs-service-contract/tcl/contract-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/contract-procs-postgresql.xql,v diff -u -N -r1.1 -r1.1.28.1 --- openacs-4/packages/acs-service-contract/tcl/contract-procs-postgresql.xql 3 Feb 2003 12:17:36 -0000 1.1 +++ openacs-4/packages/acs-service-contract/tcl/contract-procs-postgresql.xql 2 Jan 2020 18:04:58 -0000 1.1.28.1 @@ -11,35 +11,7 @@ ); - - - - select acs_sc_contract__get_name(:contract_id); - - - - - - select acs_sc_contract__get_id(:name); - - - - - - select operation_id, - operation_inputtype_id, - operation_outputtype_id - from acs_sc_operations - where contract_id = :contract_id - - - - - - select acs_sc_contract__delete(:name); - - - + select acs_sc_operation__new( @@ -54,20 +26,5 @@ - - - select contract_name, - operation_name - from acs_sc_operations - where operation_id = :operation_id - - - - - - select acs_sc_operation__delete(:contract_name, :operation_name); - - -