diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl index 96805aebfffea4192e212c4919a3c1f276a1e5b8..2bfe13cb9f20bbfbcdd082ff41dfd05076aa5e85 100644 --- a/bin/slubsipbuilderbagit.pl +++ b/bin/slubsipbuilderbagit.pl @@ -45,6 +45,7 @@ package SLUB::LZA::SIPBuilderBagIt; use Encode; use File::Copy; use File::Copy::Recursive qw(dircopy dirmove); + use File::Basename; use File::Find; use LWP::UserAgent; # to get MARC data use MARC::Record; @@ -7868,8 +7869,8 @@ PATCH write_file("$metaPath/mods.xml", $mods); # rights.xml - if(getFileName($rightsFilePath) ne "rights.xml"){ - my $rights_name = getFileName($rightsFilePath); + if(basename($rightsFilePath) ne "rights.xml"){ + my $rights_name = basename($rightsFilePath); print_scalar_data("", "WARNING: Renaming " . $rights_name . " to rights.xml, because meta filename <rights.xml> is required.", "", "yellow"); print_scalar_data("", "INFO: Read Docu for more information at https://slubarchiv.slub-dresden.de/technische-standards-fuer-die-ablieferung-von-digitalen-dokumenten/", "", "white"); copy($rightsFilePath, $metaPath) or die "Copy failed: $!";