Forum OpenACS CMS: PLS-00201: identifier 'PUBLISHING_WF.IS_NEXT' must be declared

Request Error

    ora8.c:3794:ora_tcl_command: error in `OCIStmtExecute ()':
ORA-06550: line 1, column 13:
    PLS-00201: identifier 'PUBLISHING_WF.IS_NEXT' must be declared
    ORA-06550: line 1, column 7:
    PL/SQL: Statement ignored
    ORA-06512: at "CMS.WORKFLOW_CASE", line 975
    ORA-06512: at "CMS.WORKFLOW_CASE", line 1775
    ORA-06512: at "CMS.WORKFLOW_CASE", line 1946
    ORA-06512: at "CMS.WORKFLOW_CASE", line 568
    ORA-06512: at "CMS.CONTENT_WORKFLOW", line 379
    ORA-06512: at line 4

    SQL:

          begin
          content_workflow.checkin(
              task_id      => :task_id,
              user_id      => :user_id,
              ip_address  => :ip_address,
              msg          => :msg
          );
          end;


        while executing
    "ns_ora dml nsdb0 {

          begin
          content_workflow.checkin(
              task_id      => :task_id,
              user_id      => :user..."
        ("uplevel" body line 1)
        invoked from within
    "uplevel $ulevel [list ns_ora $type $db $sql] $args"
        invoked from within
    "db_exec dml $db $full_statement_name $sql"
        invoked from within
    "if { [regexp {:1} $test_sql] } {
                return [db_exec exec_plsql_bind $db
$full_statement_name $sql 2 1 ""]
            } else {
                return [db_exec dml $db $fu..."
        ("uplevel" body line 5)
        invoked from within
    "uplevel 1 $code_block "
        invoked from within
    "db_with_handle db {
            # Right now, use :1 as the output value if it occurs in
the statement,
            # or not otherwise.
            set test_sql [db_qd_replace_s..."
        (procedure "db_exec_plsql" line 11)
        invoked from within
    "db_exec_plsql workflow_checkin "
          begin
          content_workflow.checkin(
              task_id      => :task_id,
              user_id      =..."
        ("uplevel" body line 13)
        invoked from within
    "uplevel 1 $transaction_code "
        (procedure "db_transaction" line 1)
        invoked from within
    "db_transaction {
            # check that the task is still valid
            template::query get_task_status is_valid_task onevalue "
          select content_wo..."
        invoked from within
    "if { [form is_valid task_start] } {

        form get_values task_start task_id msg

        set ip_address [ns_conn peeraddr]
        set user_id [Us..."
        ("uplevel" body line 73)
        invoked from within
    "uplevel {
              # /task-checkin.tcl
    # This is form for checking in an item that this user holds

    request create
    request set_param task_id    -datatyp..."
        (procedure
"code::tcl::/web/openacs45/packages/cms/www/modules/workflow/..." line
2)
        invoked from within
    "code::tcl::$__adp_stub"
        invoked from within
    "if { [file exists $__adp_stub.tcl] } {

          # ensure that data source preparation procedure exists and
is up-to-date
          adp_init tcl $__adp_stub
    ..."
        ("uplevel" body line 3)
        invoked from within
    "uplevel {

        if { [file exists $__adp_stub.tcl] } {

          # ensure that data source preparation procedure exists and
is up-to-date
          adp_init t..."
        (procedure "adp_prepare" line 3)
        invoked from within
    "adp_prepare "
        (procedure "template::adp_parse" line 30)
        invoked from within
    "template::adp_parse [file root [ad_conn file]] {}"
        (procedure "adp_parse_ad_conn_file" line 7)
        invoked from within
    "$handler"
        ("uplevel" body line 2)
        invoked from within
    "uplevel $code"
        invoked from within
    "ad_try {
            $handler
          } ad_script_abort val {
            # do nothing
          }"
        invoked from within
    "rp_serve_concrete_file [ad_conn file]"
        (procedure "rp_serve_abstract_file" line 60)
        invoked from within
    "rp_serve_abstract_file "$root/$path""
        ("uplevel" body line 2)
        invoked from within
    "uplevel $code"
        invoked from within
    "ad_try {
            rp_serve_abstract_file "$root/$path"
            set tcl_url2file([ad_conn url]) [ad_conn file]
            set tcl_url2path_info([ad_conn url]) [ad_conn
path_inf..."

I am using Open ACS 4.5 beta version CMS 4.5
When I checkin or finish the tasks on my Task List, I get the above
error. I searched the whole code but couldnt find a package called
PUBLISHING_WF. Do I need to run some upgrade SQL?

Any help is appreciated.

Thanks.

For the community.

I found it and here it is:

create or replace package publishing_wf as

        -- simply check the 'next_place' attribute and return true if

        -- it matches the submitted place_key

        function is_next (
          case_id          in number,
          workflow_key      in varchar,
          transition_key    in varchar,
          place_key        in varchar,
          direction        in varchar,
          custom_arg        in varchar
        ) return char;

      end publishing_wf;

/


create or replace package body publishing_wf as

        function is_next (
          case_id          in number,
          workflow_key      in varchar,
          transition_key    in varchar,
          place_key        in varchar,
          direction        in varchar,
          custom_arg        in varchar
        ) return char is

          v_next_place varchar(100);
          v_result char(1) := 'f';

        begin

          v_next_place := workflow_case.get_attribute_value(case_id, 'next_place');
          if v_next_place = place_key then
            v_result := 't';
          end if;

          return v_result;

        end is_next;

      end publishing_wf;

/

show errors