From a6bd5d91f2704d7bb4234818948fe802989c2ca3 Mon Sep 17 00:00:00 2001 From: Jens Steidl <Jens.Steidl@slub-dresden.de> Date: Mon, 12 Oct 2020 11:42:22 +0200 Subject: [PATCH] - skip if no error --- bin/slubsipbuilderbagit.pl | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl index e554f76..3e93a33 100644 --- a/bin/slubsipbuilderbagit.pl +++ b/bin/slubsipbuilderbagit.pl @@ -91,13 +91,15 @@ MODS eval { $mods = SLUB::LZA::SIPBuilderBagIt::get_mods_from($swb_url, $ppn, $searchkey_swb, $recordschema); }; - # Fallback to K10plus PPN - if ($@ =~ m#ERROR: Did not get any <recordData/> for PPN#) { - print_scalar_data("", "WARNING: '$ppn' not a SWB PPN, fallback to K10plus", "", "yellow"); - $mods = SLUB::LZA::SIPBuilderBagIt::get_mods_from($swb_url, $ppn, $searchkey_k10p, $recordschema); - } - else { - die $@; # throw exception again + if ($@) { + # Fallback to K10plus PPN + if ($@ =~ m#ERROR: Did not get any <recordData/> for PPN#) { + print_scalar_data("", "WARNING: '$ppn' not a SWB PPN, fallback to K10plus", "", "yellow"); + $mods = SLUB::LZA::SIPBuilderBagIt::get_mods_from($swb_url, $ppn, $searchkey_k10p, $recordschema); + } + else { + die "$@"; # throw exception again + } } print_scalar_data("", "INFO: Found metadata for PPN '$ppn'", "", "white"); -- GitLab