Index: openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/sample-article-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/sample-article-create.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/sample-article-create.sql	9 Feb 2002 02:33:35 -0000	1.5
+++ openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/sample-article-create.sql	10 Feb 2002 00:09:31 -0000	1.6
@@ -241,16 +241,15 @@
 
 commit;
 
-
 create or replace package wf_article_callback
 is
     procedure notification(
-        task_id 	in number, 
+            task_id 	in number, 
             custom_arg 	in varchar2, 
             party_to 	in integer, 
-            party_from 	in out integer, 
-            subject 	in out varchar2, 
-            body 	in out varchar2
+            party_from 	in integer, 
+            subject 	in varchar2, 
+            body 	in varchar2
     );
 
 end wf_article_callback;
@@ -274,8 +273,8 @@
         v_object_name varchar2(4000);
         v_transition_name wf_transitions.transition_name%TYPE;
         v_name varchar2(1000);
-        v_subject varchar2;
-        v_body varchar2;
+        v_subject varchar2(100);
+        v_body varchar2(4000);
         v_request_id integer;
     begin
         select to_char(ta.deadline,'Mon fmDDfm, YYYY HH24:MI:SS'),
@@ -300,7 +299,7 @@
 ';
 
         if v_deadline_pretty != '' then
-            body := body ||'Deadline: '||v_deadline_pretty||'
+            v_body := v_body ||'Deadline: '||v_deadline_pretty||'
 ';
         end if;
         v_request_id := acs_mail_nt.post_request (       
@@ -316,8 +315,6 @@
 show errors
 
 
-
-
 update wf_context_transition_info
    set notification_callback = 'wf_article_callback.notification'
  where workflow_key = 'article_wf'
