Forum OpenACS CMS: PLS-00201: identifier 'PUBLISHING_WF.IS_NEXT' must be declared
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.
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