From 646b59d058f2b0011694dc1083451c3acfaaba48 Mon Sep 17 00:00:00 2001 From: Olli-Antti Kivilahti Date: Tue, 1 Oct 2013 16:24:56 +0300 Subject: [PATCH] Bug 6113 [ENH] - enhancement to keep previous ids Fixed warning messages. --- C4/Biblio.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 5e98f42..099be45 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -3142,17 +3142,17 @@ sub _koha_add_biblioitem { if (exists $biblioitem->{'biblioitemnumber'}) { $biblioitemnumber = $biblioitem->{'biblioitemnumber'}; if (! ($biblioitemnumber =~ /^\d+$/) ) { - $error .= "C4::Biblio::_koha_add_biblio():> biblioitemnumber $biblioitemnumber is not a number! Using a new biblioitemnumber\n"; + $error .= "C4::Biblio::_koha_add_biblioitem():> biblioitemnumber $biblioitemnumber is not a number! Using a new biblioitemnumber\n"; warn $error; } elsif (! ($biblioitemnumber > 0)) { - $error .= "C4::Biblio::_koha_add_biblio():> biblioitemnumber $biblioitemnumber is not greater than 0! Using a new biblioitemnumber\n"; + $error .= "C4::Biblio::_koha_add_biblioitem():> biblioitemnumber $biblioitemnumber is not greater than 0! Using a new biblioitemnumber\n"; warn $error; } #The real Perl LONG_MAX is 2147483646, but using 2147483640 # so we can detect the imminent primary key exhaustion before it actually is exhausted. elsif (! ($biblioitemnumber < 2147483640)) { - $error .= "C4::Biblio::_koha_add_biblio():> biblioitemnumber $biblioitemnumber is too large for Perl! Using a new biblioitemnumber\n"; + $error .= "C4::Biblio::_koha_add_biblioitem():> biblioitemnumber $biblioitemnumber is too large for Perl! Using a new biblioitemnumber\n"; warn $error; } else { -- 1.8.1.2