Index: openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/workflow-case-package.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/workflow-case-package.sql,v diff -u -r1.5 -r1.6 --- openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/workflow-case-package.sql 27 Aug 2001 03:59:17 -0000 1.5 +++ openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/workflow-case-package.sql 3 Sep 2001 05:28:28 -0000 1.6 @@ -369,6 +369,7 @@ v_journal_id number; begin /* Add an entry to the journal */ + dbms_output.put_line('creating journal entry'); v_journal_id := journal_entry.new( object_id => start_case.case_id, action => 'case start', @@ -380,13 +381,15 @@ update wf_cases set state = 'active' where case_id = start_case.case_id; + dbms_output.put_line('adding token'); add_token( case_id => start_case.case_id, place_key => 'start', journal_id => v_journal_id ); /* Turn the wheels */ + dbms_output.put_line('sweeping transitions'); sweep_automatic_transitions( case_id => start_case.case_id, journal_id => v_journal_id @@ -1067,6 +1070,7 @@ * 3. otherwise, if there is an attribute, we use that */ + dbms_output.put_line('exec of case_deadline callback'); /* wf_case_deadlines */ open case_deadline_cur; fetch case_deadline_cur into v_deadline; @@ -1206,7 +1210,7 @@ v_workflow_key varchar2(100); begin select wf_token_id_seq.nextval into v_token_id from dual; - + dbms_output.put_line('case_id = ' || case_id || ', place_key = ' || place_key || ', journal_id = ' || journal_id); select workflow_key into v_workflow_key from wf_cases c where c.case_id = add_token.case_id; @@ -1315,7 +1319,7 @@ v_done_p char(1); v_finished_p char(1); begin - + dbms_output.put_line('enabling transitions'); enable_transitions(case_id => sweep_automatic_transitions.case_id); loop @@ -1520,7 +1524,9 @@ and tr.transition_key = ta.transition_key; /* Default values */ - v_party_from := -1; /* This default value should probably be pulled from somewhere */ + -- changed to null from -1 since acs-mail references users instead of + -- parties. DanW (dcwickstrom@earthlink.net) + v_party_from := null; /* This default value should probably be pulled from somewhere */ v_subject := 'Assignment: '||v_transition_name||' '||v_object_name; v_body := 'You have been assigned to a task. '||' Index: openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/test/workflow-case-package-test.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/test/workflow-case-package-test.sql,v diff -u -r1.3 -r1.4 --- openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/test/workflow-case-package-test.sql 2 Sep 2001 17:35:44 -0000 1.3 +++ openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/test/workflow-case-package-test.sql 3 Sep 2001 05:28:28 -0000 1.4 @@ -6,8 +6,56 @@ -- -- exec utplsql.setdir('/web/lars-dev2/packages/acs-kernel/sql'); -exec utplsql.autocompile (false); +-- exec utplsql.autocompile (false); +create or replace package utassert +as + procedure eq ( + msg_in in varchar2, + check_this_in in integer, + against_this_in in integer + ); + procedure eq ( + msg_in in varchar2, + check_this_in in varchar2, + against_this_in in varchar2 + ); +end utassert; +/ +show errors; + +create or replace package body utassert +as + + procedure eq ( + msg_in in varchar2, + check_this_in in integer, + against_this_in in integer + ) + is + begin + if check_this_in <> against_this_in then + dbms_output.put_line('ERROR ' || msg_in || ' failed'); + end if; + end eq; + + procedure eq ( + msg_in in varchar2, + check_this_in in varchar2, + against_this_in in varchar2 + ) + is + begin + if check_this_in <> against_this_in then + dbms_output.put_line('ERROR ' || msg_in || ' failed'); + end if; + end eq; + +end utassert; +/ +show errors; + + create or replace package ut#workflow_case as @@ -39,8 +87,8 @@ - utplsql.setpkg('workflow_case'); - utplsql.addtest('run'); + -- utplsql.setpkg('workflow_case'); + -- utplsql.addtest('run'); end; procedure teardown @@ -506,11 +554,18 @@ against_this_in => v_state ); - utresult.show; + -- utresult.show; end; end ut#workflow_case; / show errors -exec utplsql.test('workflow_case'); \ No newline at end of file +-- exec utplsql.test('workflow_case'); + +begin + ut#workflow_case.setup; + ut#workflow_case.run; +end; +/ +show errors Index: openacs-4/packages/acs-mail/sql/oracle/acs-mail-nt-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail/sql/oracle/acs-mail-nt-create.sql,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-mail/sql/oracle/acs-mail-nt-create.sql 1 Sep 2001 02:46:33 -0000 1.3 +++ openacs-4/packages/acs-mail/sql/oracle/acs-mail-nt-create.sql 3 Sep 2001 05:28:28 -0000 1.4 @@ -165,7 +165,7 @@ ); -- get the sender email address - select email into v_header_from + select max(email) into v_header_from from parties where party_id = party_from; -- get the recipient email address Index: openacs-4/packages/cms/www/modules/sitemap/index-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/sitemap/index-oracle.xql,v diff -u -r1.4 -r1.5 --- openacs-4/packages/cms/www/modules/sitemap/index-oracle.xql 2 Sep 2001 14:24:58 -0000 1.4 +++ openacs-4/packages/cms/www/modules/sitemap/index-oracle.xql 3 Sep 2001 05:28:28 -0000 1.5 @@ -12,7 +12,7 @@ 'content_folder', f.label, nvl(v.title, i.name)) title, decode(r.item_id, :index_page_id, 't', 'f') is_index_page, - nvl(to_char(round(v.content_length / 1000, 1)), '-') file_size + nvl(to_char(round(v.content_length / 1000, 2)), '-') file_size from cr_resolved_items r, cr_items i, cr_folders f, cr_revisions v, cr_revisions u, acs_objects o, acs_object_types t @@ -53,7 +53,7 @@ o.object_type, t.pretty_name content_type, to_char(o.last_modified, 'MM/DD/YYYY HH24:MI') last_modified_date, decode(r.item_id, :index_page_id, 't', 'f') is_index_page, - nvl(to_char(round(v.content_length / 1000, 1)), '-') file_size + nvl(to_char(round(v.content_length / 1000, 2)), '-') file_size from cr_resolved_items r, cr_items i, cr_folders f, cr_revisions v, cr_revisions u, acs_objects o, acs_object_types t Index: openacs-4/packages/cms/www/modules/templates/index-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/templates/index-oracle.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/cms/www/modules/templates/index-oracle.xql 8 Jun 2001 01:44:53 -0000 1.1 +++ openacs-4/packages/cms/www/modules/templates/index-oracle.xql 3 Sep 2001 05:28:28 -0000 1.2 @@ -37,7 +37,7 @@ select t.template_id, i.name, to_char(o.last_modified, 'MM/DD/YY HH:MI AM') modified, - nvl(round(r.content_length / 1000), 0) || ' KB' as file_size + nvl(round(r.content_length / 1000, 2), 0) || ' KB' as file_size from cr_templates t, cr_items i, acs_objects o, cr_revisions r where Index: openacs-4/packages/cms/www/modules/templates/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/templates/index.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/cms/www/modules/templates/index.tcl 2 Sep 2001 14:24:58 -0000 1.3 +++ openacs-4/packages/cms/www/modules/templates/index.tcl 3 Sep 2001 05:28:28 -0000 1.4 @@ -89,7 +89,7 @@ select t.template_id, i.name, to_char(o.last_modified, 'MM/DD/YY HH:MI AM') modified, - nvl(round(r.content_length / 1000), 0) || ' KB' as file_size + nvl(round(r.content_length / 1000, 2), 0) || ' KB' as file_size from cr_templates t, cr_items i, acs_objects o, cr_revisions r where Index: openacs-4/packages/cms/www/modules/templates/revisions-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/templates/revisions-oracle.xql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/cms/www/modules/templates/revisions-oracle.xql 2 Sep 2001 14:24:58 -0000 1.2 +++ openacs-4/packages/cms/www/modules/templates/revisions-oracle.xql 3 Sep 2001 05:28:28 -0000 1.3 @@ -9,7 +9,7 @@ select revision_id, to_char(o.creation_date, 'MM/DD/YY HH:MI AM') modified, - round(r.content_length / 1000) || ' KB' as file_size, + round(r.content_length / 1000, 2) || ' KB' as file_size, decode(NVL(p.person_id, 0), 0, '-', substr(p.first_names, 1, 1) || substr(p.last_name, 1, 1)) modified_by, Index: openacs-4/packages/cms/www/modules/templates/revisions.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/templates/revisions.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/cms/www/modules/templates/revisions.tcl 2 Sep 2001 14:24:58 -0000 1.3 +++ openacs-4/packages/cms/www/modules/templates/revisions.tcl 3 Sep 2001 05:28:28 -0000 1.4 @@ -19,7 +19,7 @@ select revision_id, to_char(o.creation_date, 'MM/DD/YY HH:MI AM') modified, - round(r.content_length / 1000) || ' KB' as file_size, + round(r.content_length / 1000, 2) || ' KB' as file_size, decode(NVL(p.person_id, 0), 0, '-', substr(p.first_names, 1, 1) || substr(p.last_name, 1, 1)) modified_by, Index: openacs-4/packages/cms/www/modules/workflow/case-create-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/workflow/case-create-oracle.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/cms/www/modules/workflow/case-create-oracle.xql 25 May 2001 23:49:05 -0000 1.1 +++ openacs-4/packages/cms/www/modules/workflow/case-create-oracle.xql 3 Sep 2001 05:28:28 -0000 1.2 @@ -39,7 +39,7 @@ begin workflow_case.add_manual_assignment( case_id => :case_id, - tranisition_key => :transition, + transition_key => :transition, party_id => :new_value ); end; Index: openacs-4/packages/cms/www/modules/workflow/case-create.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/workflow/case-create.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/cms/www/modules/workflow/case-create.tcl 12 Jun 2001 04:13:46 -0000 1.6 +++ openacs-4/packages/cms/www/modules/workflow/case-create.tcl 3 Sep 2001 05:28:28 -0000 1.7 @@ -241,7 +241,7 @@ begin workflow_case.add_manual_assignment( case_id => :case_id, - tranisition_key => :transition, + transition_key => :transition, party_id => :new_value ); end;