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.1 -r1.2
--- openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl	3 Feb 2003 12:17:36 -0000	1.1
+++ openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl	25 Feb 2003 15:15:33 -0000	1.2
@@ -33,7 +33,7 @@
     @return id of the contract
 
 } {
-    return [db_string insert_sc_contract {}]
+    return [db_exec_plsql insert_sc_contract {}]
 }
 
 ad_proc -public acs_sc::contract::new_from_spec {
@@ -111,7 +111,7 @@
         # LARS:
         # It seems like delete by ID doesn't work, because our PG bind thing turns all integers into strings
         # by wrapping them in single quotes, causing PG to invoke the function for deleting by name
-        db_string delete_by_name {}
+        db_exec_plsql delete_by_name {}
     }
 }
 
@@ -183,7 +183,7 @@
         db_1row select_names {}
     }
 
-    db_string delete_by_name {}
+    db_exec_plsql delete_by_name {}
 }
 
 ad_proc -public acs_sc::contract::operation::parse_operations_spec {