+ if (ref($rStatus->{ext}) eq "ARRAY") {
+ my @extlist = @{$rStatus->{ext}};
+ my $created = 0;
+ for my $extx (@extlist) {
+ if (-e "$sourcedir/$f$extx") {
+ ($newname, $res1) = addFileCopyJob("$sourcedir/$f$extx",
+ "$destdirOfSubdocuments",
+ $rStatus->{"filetype"},
+ $rFiles, $created);
+ print "Added ($res1) file \"$sourcedir/$f$extx\" to be copied to \"$newname\"\n";
+ if (!$created && $extx ne "") {
+ $newname =~ s/$extx$//;
+ }
+ $created = 1;
+ }
+ }
+ print "WARNING: No prefixed file.(" . join('|', @extlist) . ") seens to exist, at \"$source:$fi_line_no\"\n" if (!$created);