#
#========================================================================
#
-# Version 2.1.0_CVS, released 3 Jul 2003.
+# Version 3.0.0alpha, released 23 Jan 2006.
#
# See http://backuppc.sourceforge.net.
#
(my $strippedShareDest = $RestoreReq{shareDest}) =~ s/^\///;
substr($targetFile, 0, length($RestoreReq{pathHdrSrc}))
= $RestoreReq{pathHdrDest};
+ $targetFile =~ s{//+}{/}g;
$fileListStr .= <<EOF;
<tr><td>$RestoreReq{hostSrc}:/$strippedShareSrc$f</td><td>$RestoreReq{hostDest}:/$strippedShareDest$targetFile</td></tr>
EOF
}
-
- Header(eval("qq{$Lang->{Restore___num_details_for__host}}"));
- print(eval("qq{$Lang->{Restore___num_details_for__host2 }}"));
+ my $content = eval("qq{$Lang->{Restore___num_details_for__host2}}");
+ Header(eval("qq{$Lang->{Restore___num_details_for__host}}"),$content);
Trailer();
}