From 392c9f97e1aa337ac344b700c1d13c6243ec659c Mon Sep 17 00:00:00 2001
From: Andreas Romeyke <andreas.romeyke@slub-dresden.de>
Date: Thu, 3 Apr 2025 13:22:31 +0200
Subject: [PATCH] - minor improvement in efficiency
---
perl/exit_strategy.pl | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index d2cc3fa..64067db 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{[^>]*};
--
GitLab