diff options
Diffstat (limited to 'lib/store/fix_storage.pl')
| -rw-r--r-- | lib/store/fix_storage.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/store/fix_storage.pl b/lib/store/fix_storage.pl index 8b13a397..ba605616 100644 --- a/lib/store/fix_storage.pl +++ b/lib/store/fix_storage.pl @@ -62,9 +62,9 @@ sub dumpTree { # Finds the files where we have to fix part references (->maindoc.xml) sub findCandidates { - my($dref, $currentdir, $parentdir) = @_; + my($dref, $currentdir, $tqparentdir) = @_; my @dir = @{$dref}; - #print "current: $currentdir, parentdir: $parentdir\n"; + #print "current: $currentdir, tqparentdir: $tqparentdir\n"; foreach(@dir) { if(ref($_) eq 'ARRAY') { #print $_->[0], " (", $_->[1], ")\n"; @@ -72,8 +72,8 @@ sub findCandidates { } else { if($_ =~ m/maindoc\.xml/) { - my $source = $parentdir . '/' . $currentdir . "/maindoc.xml"; - my $dest = $parentdir . '/' . $currentdir . ".xml"; + my $source = $tqparentdir . '/' . $currentdir . "/maindoc.xml"; + my $dest = $tqparentdir . '/' . $currentdir . ".xml"; push(@needFixing, [ $source, $dest ]); } } |