diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl index d2cc3faae74d184bddbd4cf7c008d8773cce8e04..64067db17ec60b5ae8adf05ff8472ce8bf6709fa 100644 --- a/perl/exit_strategy.pl +++ b/perl/exit_strategy.pl @@ -510,7 +510,7 @@ sub check_if_db_conform ($string, $filename) { } sub get_file_path($xp, $filegrp, $filepid) { - return $xp->findvalue("mets:file[\@ID=\"$filepid\"]/mets:FLocat/\@xlin:href", $filegrp); + return $xp->findvalue("./mets:file[\@ID=\"$filepid\"]/mets:FLocat/\@xlin:href", $filegrp); } sub get_file_path_rx($xml, $filepid) { my $nt = qr{[^>]*};