Workflow not attaching files

begood321

Hey Guys,

My workflow is not attaching files on submit, it keeps saying files not attach end workflow. Here is the code below. Any help or suggestions will be greatly appreciated.

Thanks

sub BuildOptions {
my $Opts = '';
my $OptArray = "myOptions = new Array(\n";
my $FilesExist = 0;
my $fileName = '';

foreach my $File ($Task->GetFiles()) {
$File =~ s#\\#/#g;
if( $File =~ /templatedata/ || $File =~ /\.xpa$/ )
{
next ;
}
$fileName = substr($File, rindex($File, "/")+ 1);
my $File_Esc = $CGI->escape_form_data($File);
$Opts .= ' 'x18 ."$fileName\n";
if (-f "$IWMount$Area/$File") {
$FilesExist = 1;
} else {
MostlyDead("\"$Area/$File\" is not a file.", "Please re-start with a valid file list.");
}
my $DCR = `$IWHome/bin/iwextattr.exe -g "Document DCR" "$Area/$File"`;
my $Exists;
chomp($DCR);
# if the file has a "Document DCR" attribute
if (($DCR) && (-f "$IWMount$Area/templatedata/$DCR")) {
$Exists = 'true';
} else {
$Exists = 'false';
}

# Flag whether this file is a deletion
my $isADeletion;
my $ORIG_EA = `$IWHome/bin/iwextattr.exe -g "Original Version" "$Area/$File"`;
# If the file has no "Document DCR" attribute but does have an "Original Document" attribute it must be a deletion
if ((!($DCR) || $DCR eq "") && ($ORIG_EA)) {
$isADeletion = 'true';
} else {
$isADeletion = 'false';
}

my $sub = substr($DCR, rindex($DCR,"/data") + 5);
$sub = $CGI->escape_form_data($sub);
$OptArray .= " [\"$sub\",$Exists,$isADeletion],\n";
}
unless ($FilesExist) {
MostlyDead("No files have been attached.", "Please restart the workflow");
}
$OptArray =~ s/,$//; #Strip off the last comma
$OptArray .= ");\n";
chomp($Opts);
return($Opts, $OptArray);
}

nipper

I assume this is part of the perl that is run before the XML is generated. If I am incorrect, then ignore everything following and describe your situation better.

The problem (I think) is that you are trying to use getFiles() to get the list of files. The issue is that files need to be attached to a task for that to work.

I use __ELEM__('iw_file') to get the list of files that were selected when a job was started. something like:

        my(@flist) = map {    
          TeamSite::CGI_lite::escape_html_data($_);
        }  sort map {
            tr|\\|/|; 
            s|^\Q$iw_area_vpath\E||;
            $_;
        }  __VALUE__('iw_file');

Code leveraged from previous IWOV default workflow.

That creates an array of files and you can then process it as needed.

HTH

Andy