Index: openacs-4/contrib/obsolete-packages/acs-workflow/sql/postgresql/workflow-case-package.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/sql/postgresql/workflow-case-package.sql,v diff -u -r1.9 -r1.10 --- openacs-4/contrib/obsolete-packages/acs-workflow/sql/postgresql/workflow-case-package.sql 14 May 2001 23:16:08 -0000 1.9 +++ openacs-4/contrib/obsolete-packages/acs-workflow/sql/postgresql/workflow-case-package.sql 15 May 2001 05:09:08 -0000 1.10 @@ -953,7 +953,7 @@ quote_literal(evaluate_guard__transition_key) || '','' || quote_literal(evaluate_guard__place_key) || '','' || quote_literal(evaluate_guard__direction) || '','' || - quote_literal(evaluate_guard__custom_arg) || '') as guard_happy_p''; + coalesce(quote_literal(evaluate_guard__custom_arg),''null'') || '') as guard_happy_p''; for v_rec in execute v_str LOOP @@ -1539,6 +1539,7 @@ v_subject text; v_body text; v_request_id integer; + v_str text; begin select to_char(ta.deadline,''Mon fmDDfm, YYYY HH24:MI:SS''), acs_object__name(c.object_id), @@ -1579,14 +1580,15 @@ -- FIXME: last three args are also out varibles. if notify_assignee__callback != '''' and notify_assignee__callback is not null then - execute ''select '' || notify_assignee__callback || ''('' || + v_str := ''select '' || notify_assignee__callback || ''('' || notify_assignee__task_id || '','' || coalesce(quote_literal(notify_assignee__custom_arg),''null'') || '','' || notify_assignee__user_id || '','' || v_party_from || '','' || quote_literal(v_subject) || '','' || quote_literal(v_body) || '')''; + execute v_str; end if; -- FIXME: notifications package not ported yet. Index: openacs-4/contrib/obsolete-packages/acs-workflow/www/task.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/www/task.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/obsolete-packages/acs-workflow/www/task.tcl 13 Mar 2001 22:59:27 -0000 1.1 +++ openacs-4/contrib/obsolete-packages/acs-workflow/www/task.tcl 15 May 2001 05:09:08 -0000 1.2 @@ -60,6 +60,7 @@ array set task [wf_task_info $task_id] +ns_log Notice "task array = [join [array get task] ","]" # if the user is assigned, they can always view the task. # if they aren't assigned and there is an access_privilege, we check it Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs-oracle.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl 12 May 2001 05:09:48 -0000 1.6 +++ openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl 15 May 2001 05:09:08 -0000 1.7 @@ -26,7 +26,7 @@ Executes a PL/SQL statement, returning the variable of bind variable :1. } { - ad_arg_parser { bind_output } $args + ad_arg_parser { bind_output bind } $args # Query Dispatcher (OpenACS - ben) set full_statement_name [db_qd_get_fullname $statement_name] Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs-postgresql.tcl,v diff -u -r1.15 -r1.16 --- openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl 10 May 2001 17:35:51 -0000 1.15 +++ openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl 15 May 2001 05:09:08 -0000 1.16 @@ -23,7 +23,7 @@ stuff otherwise because of calling environments. (ben) } { - ad_arg_parser { bind_output } $args + ad_arg_parser { bind_output bind } $args # I'm not happy about having to get the fullname here, but right now # I can't figure out a cleaner way to do it. I will have to