Index: openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs.tcl	14 May 2001 04:55:12 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs.tcl	14 May 2001 23:16:08 -0000	1.3
@@ -509,7 +509,7 @@
 	if { [info exists attributes] } {
 	    array set attr $attributes
 	    foreach attribute_name [array names attr] {
-		db_dml set_attribute_value {
+		db_exec_plsql set_attribute_value {
 		    begin
 			workflow_case.set_attribute_value(
 		            journal_id => :journal_id, 
@@ -531,7 +531,7 @@
 	    foreach transition_key [array names asgn] {
 		ns_log Notice "Assigning $transition_key"
 		
-		db_dml clear_assignments { 
+		db_exec_plsql clear_assignments { 
 		    begin 
 		        workflow_case.clear_manual_assignments(
 		            case_id => :case_id,
@@ -542,7 +542,7 @@
 		
 		foreach party_id $asgn($transition_key) {
 		    ns_log Notice "Adding $party_id to $transition_key"
-		    db_dml add_manual_assignment {
+		    db_exec_plsql add_manual_assignment {
 			begin
 			    workflow_case.add_manual_assignment(
 			        case_id => :case_id,
@@ -555,7 +555,7 @@
 	    }
 	}
 
-	db_dml end_task_action {
+	db_exec_plsql end_task_action {
 	    begin
 	        workflow_case.end_task_action(
 	            journal_id => :journal_id,
@@ -582,7 +582,7 @@
     @author Lars Pind (lars@pinds.com)
     @creation-date 10 July, 2000
 } {
-    db_dml transition_fire {
+    db_exec_plsql transition_fire {
 	begin
 	    workflow_case.fire_message_transition(
 	        task_id => :task_id
@@ -635,7 +635,7 @@
     set user_id [ad_get_user_id]
     set ip_address [ad_conn peeraddr]
 
-    db_dml case_suspend {
+    db_exec_plsql case_suspend {
         begin
        	    workflow_case.suspend(
 	        case_id => :case_id, 
@@ -660,7 +660,7 @@
     set user_id [ad_get_user_id]
     set ip_address [ad_conn peeraddr]
 
-    db_dml case_resume {
+    db_exec_plsql case_resume {
         begin
        	    workflow_case.resume(
 	        case_id => :case_id, 
@@ -685,7 +685,7 @@
     set user_id [ad_get_user_id]
     set ip_address [ad_conn peeraddr]
 
-    db_dml case_cancel {
+    db_exec_plsql case_cancel {
         begin
        	    workflow_case.cancel(
 	        case_id => :case_id,