Perl problem

I have this ipl that i call in my CGI task (first task) to pull up all the related assets (by parsing the dcr) and listing them out for user to select.
Everything seems to be just right but nothing shows up in the selection list.

I am using the function checkDotComRelatedAssets() to collect the assets and call it in the begining of the ipl and push all the paths into @files.

It always seems to go into the 'if' part because there is nothing in the array.
Am i doing Something wrong?

if($left[0] eq ''){
print qq {There are no related assets to be attached to the workflow. Kindly click Cancel to proceed. };
}

Using TS 6.5
Attached the ipl.

Thanks

Find more posts tagged with

Comments

ISCBorisB

It always seems to go into the 'if' part because there is nothing in the array

Too many bugs in your code. For example, in
"my $path = $area."/".$item; checkDotComRelatedAssets($path, $area1);" $area is undefined.
In the procedure itself you use questionable split / regex to *filter in* certain Tag values, etc...

If I were you I would use "strict" and "warnings" pragmas, localize error(s) and start asking
more pointed questions. It's doubtful that somebody will do your debugging for free

Departments.rptdesign

dann

Thanks for pointing me in the right direction.That is indeed the problem. It was supposed to be area1.
You are right it definetely needs a lot of cleanup which i am going to do.

Aprreciate your help

Adam Stoller

I have this ipl that i call in my CGI task (first task) to pull up all the related assets (by parsing the dcr) and listing them out for user to select.
Everything seems to be just right but nothing shows up in the selection list.

I am using the function checkDotComRelatedAssets() to collect the assets and call it in the begining of the ipl and push all the paths into @files.

It always seems to go into the 'if' part because there is nothing in the array.
Am i doing Something wrong?

if($left[0] eq ''){
print qq {There are no related assets to be attached to the workflow. Kindly click Cancel to proceed. };
}

Using TS 6.5
Attached the ipl.

Thanks

Hard to tell if you're doing something wrong since we don't know if you pre-selected one or more files before initiating the workflow and/or whether the workflow adds pre-selected files to the start task correctly.

Assuming all that is working - are you sure you're getting a valid task object in your script?

...
#<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
sub TASK_PARAM () { "task_id" }
my($taskId) = $cgi->{form}{&TASK_PARAM};
$taskId = $$taskId[0] if (ref($taskId) eq "ARRAY");
my $task = new TeamSite::WFtask($taskId);
...

I'm not sure why you go to the extra level of abstraction in creating a TASK_PARAM subroutine - but regardless - you should be checking the value of

$task->IsValid()

after you create the object (log the result somewhere while you're debugging).

Valentine

You can always check your perl script for any errors.

Always!!

"use strict"

and check errors in the script with:

$ iwperl -wc myscript.ipl