@@ -, +, @@ --- C4/Biblio.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) --- a/C4/Biblio.pm +++ a/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 { --