$fi_line_no += 1;
$l =~ s/[\n\r]+$//;
#chomp($l);
- my $rStatus = checkLyxLine($l);
+ my $rStatus = checkLyxLine($l, $sourcedir);
if ($rStatus->{found}) {
my $rF = $rStatus->{result};
if ($rStatus->{"filetype"} eq "replace_only") {
my $ext = $isrel[1];
if ($rStatus->{"filetype"} eq "prefix_only") {
$f = getNewNameOf("$sourcedir/$f", $rFiles);
+ if ($format =~ /^(docbook5|epub)$/) {
+ $rF->[1] = join(',', @{$filelist});
+ $l = join('', @$rF);
+ }
}
else {
my ($newname, $res1);
}
}
}
- if ($foundrelative) {
+ if ($foundrelative && $rStatus->{"filetype"} !~ /^(prefix_for_list|prefix_only)$/) {
# The result can be relative too
+ # but, since prefix_for_list does no copy, we have to use absolute paths
+ # to address files inside the source dir
my @rel_list = ();
for my $fr (@{$filelist}) {
push(@rel_list, File::Spec->abs2rel($fr, $destdir));