Index: openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-postgresql.xql	27 Apr 2001 01:41:12 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/acs-workflow/tcl/workflow-procs-postgresql.xql	12 May 2001 19:13:35 -0000	1.3
@@ -5,63 +5,67 @@
 
 <fullquery name="wf_task_action.begin_task_action">      
       <querytext>
-      FIX ME PLSQL 
-	    begin
-		:1 := workflow_case.begin_task_action(
-	            task_id => :task_id, 
-	            action => :action, 
-	            action_ip => :modifying_ip,
-		    user_id => :user_id, 
-	            msg => :msg);
-	    end;
+
+		select workflow_case__begin_task_action(
+	            :task_id, 
+	            :action, 
+	            :modifying_ip,
+		    :user_id, 
+	            :msg);
 	
       </querytext>
 </fullquery>
 
  
 <fullquery name="wf_case_new.workflow_case_new">      
       <querytext>
-      FIX ME PLSQL begin :1 := workflow_case.new([join $arguments ", "]); end;
+
+      select workflow_case__new([join $arguments ", "]);
+
       </querytext>
 </fullquery>
 
  
 <fullquery name="wf_case_new.workflow_case_start_case">      
       <querytext>
-      FIX ME PLSQL begin workflow_case.start_case([join $arguments ", "]); end;
+
+      select workflow_case__start_case([join $arguments ", "])
+
       </querytext>
 </fullquery>
 
  
 <fullquery name="wf_case_comment.case_comment">      
       <querytext>
-      FIX ME PLSQL 
-	begin
-	    :1 := journal_entry.new(
-	        object_id => :case_id,
-	        action => 'comment',
-	        creation_user => :user_id,
-	        creation_ip => :ip_address,
-	        msg => :msg
-            );
-        end;
+
+	    select journal_entry__new(
+                null,
+	        :case_id,
+	        'comment',
+                null,
+                now(),
+	        :user_id,
+	        :ip_address,
+	        :msg
+            )
     
       </querytext>
 </fullquery>
 
  
 <fullquery name="wf_simple_workflow_p.simple_workflow">      
       <querytext>
-      FIX ME PLSQL begin :1 := workflow.simple_p(:workflow_key); end;
+
+      select workflow__simple_p(:workflow_key); end;
+
       </querytext>
 </fullquery>
 
 <fullquery name="wf_case_info.case">      
       <querytext>
       
 	select case_id,
-	       acs_object__name(object_id) as object_name,
-	
+	       acs_object__name(object_id) as object_name,	
 	       state
 	from   wf_cases
 	where  case_id = :case_id
@@ -75,7 +79,7 @@
 	select t.task_id,
 	       t.case_id, 
 	       c.object_id,
-	       acs_object.name(c.object_id) as object_name,
+	       acs_object__name(c.object_id) as object_name,
                ot.pretty_name as object_type_pretty,
 	       c.workflow_key,
                tr.transition_name as task_name, 
@@ -91,16 +95,16 @@
 	       t.overridden_date,
 	       to_char(t.overridden_date, :date_format) as overridden_date_pretty,
  	       t.holding_user, 
-	       acs_object.name(t.holding_user) as holding_user_name,
+	       acs_object__name(t.holding_user) as holding_user_name,
 	       p.email as holding_user_email,
 	       t.hold_timeout,
 	       to_char(t.hold_timeout, :date_format) as hold_timeout_pretty,
 	       t.deadline,
 	       to_char(t.deadline, :date_format) as deadline_pretty,
-	       t.deadline - sysdate as days_till_deadline,
+	       t.deadline - now() as days_till_deadline,
 	       tr.estimated_minutes,
-           tr.access_privilege,
-	       sysdate
+               tr.access_privilege,
+	       now()
 	from   wf_tasks t left outer join parties p 
                 on p.party_id = t.holding_user,
 	       wf_cases c, 
@@ -162,7 +166,7 @@
                o.creation_date,
                to_char(o.creation_date, :date_format) as creation_date_pretty,
                o.creation_user,
-   	       acs_object.name(o.creation_user) as creation_user_name,
+   	       acs_object__name(o.creation_user) as creation_user_name,
  	       p.email as creation_user_email, 
 	       o.creation_ip,
                j.msg