Lines 3142-3158
sub _koha_add_biblioitem {
Link Here
|
3142 |
if (exists $biblioitem->{'biblioitemnumber'}) { |
3142 |
if (exists $biblioitem->{'biblioitemnumber'}) { |
3143 |
$biblioitemnumber = $biblioitem->{'biblioitemnumber'}; |
3143 |
$biblioitemnumber = $biblioitem->{'biblioitemnumber'}; |
3144 |
if (! ($biblioitemnumber =~ /^\d+$/) ) { |
3144 |
if (! ($biblioitemnumber =~ /^\d+$/) ) { |
3145 |
$error .= "C4::Biblio::_koha_add_biblio():> biblioitemnumber $biblioitemnumber is not a number! Using a new biblioitemnumber\n"; |
3145 |
$error .= "C4::Biblio::_koha_add_biblioitem():> biblioitemnumber $biblioitemnumber is not a number! Using a new biblioitemnumber\n"; |
3146 |
warn $error; |
3146 |
warn $error; |
3147 |
} |
3147 |
} |
3148 |
elsif (! ($biblioitemnumber > 0)) { |
3148 |
elsif (! ($biblioitemnumber > 0)) { |
3149 |
$error .= "C4::Biblio::_koha_add_biblio():> biblioitemnumber $biblioitemnumber is not greater than 0! Using a new biblioitemnumber\n"; |
3149 |
$error .= "C4::Biblio::_koha_add_biblioitem():> biblioitemnumber $biblioitemnumber is not greater than 0! Using a new biblioitemnumber\n"; |
3150 |
warn $error; |
3150 |
warn $error; |
3151 |
} |
3151 |
} |
3152 |
#The real Perl LONG_MAX is 2147483646, but using 2147483640 |
3152 |
#The real Perl LONG_MAX is 2147483646, but using 2147483640 |
3153 |
# so we can detect the imminent primary key exhaustion before it actually is exhausted. |
3153 |
# so we can detect the imminent primary key exhaustion before it actually is exhausted. |
3154 |
elsif (! ($biblioitemnumber < 2147483640)) { |
3154 |
elsif (! ($biblioitemnumber < 2147483640)) { |
3155 |
$error .= "C4::Biblio::_koha_add_biblio():> biblioitemnumber $biblioitemnumber is too large for Perl! Using a new biblioitemnumber\n"; |
3155 |
$error .= "C4::Biblio::_koha_add_biblioitem():> biblioitemnumber $biblioitemnumber is too large for Perl! Using a new biblioitemnumber\n"; |
3156 |
warn $error; |
3156 |
warn $error; |
3157 |
} |
3157 |
} |
3158 |
else { |
3158 |
else { |
3159 |
- |
|
|