Lines 2952-2968
sub _koha_add_biblio {
Link Here
|
2952 |
$biblionumber = $biblio->{'biblionumber'}; |
2952 |
$biblionumber = $biblio->{'biblionumber'}; |
2953 |
if (! ($biblionumber =~ /^\d+$/) ) { |
2953 |
if (! ($biblionumber =~ /^\d+$/) ) { |
2954 |
$error .= "C4::Biblio::_koha_add_biblio():> Biblionumber $biblionumber is not a number! Using a new biblionumber\n"; |
2954 |
$error .= "C4::Biblio::_koha_add_biblio():> Biblionumber $biblionumber is not a number! Using a new biblionumber\n"; |
2955 |
warn $error; |
|
|
2956 |
} |
2955 |
} |
2957 |
elsif (! ($biblionumber > 0)) { |
2956 |
elsif (! ($biblionumber > 0)) { |
2958 |
$error .= "C4::Biblio::_koha_add_biblio():> Biblionumber $biblionumber is not greater than 0! Using a new biblionumber\n"; |
2957 |
$error .= "C4::Biblio::_koha_add_biblio():> Biblionumber $biblionumber is not greater than 0! Using a new biblionumber\n"; |
2959 |
warn $error; |
|
|
2960 |
} |
2958 |
} |
2961 |
#The real Perl LONG_MAX is 2147483646, but using 2147483640 |
2959 |
#The real Perl LONG_MAX is 2147483646, but using 2147483640 |
2962 |
# so we can detect the imminent primary key exhaustion before it actually is exhausted. |
2960 |
# so we can detect the imminent primary key exhaustion before it actually is exhausted. |
2963 |
elsif (! ($biblionumber < 2147483640)) { |
2961 |
elsif (! ($biblionumber < 2147483640)) { |
2964 |
$error .= "C4::Biblio::_koha_add_biblio():> Biblionumber $biblionumber is too large for Perl! Using a new biblionumber\n"; |
2962 |
$error .= "C4::Biblio::_koha_add_biblio():> Biblionumber $biblionumber is too large for Perl! Using a new biblionumber\n"; |
2965 |
warn $error; |
|
|
2966 |
} |
2963 |
} |
2967 |
else { |
2964 |
else { |
2968 |
#We have validated the biblionumber and can prepare to insert it. |
2965 |
#We have validated the biblionumber and can prepare to insert it. |
Lines 3143-3159
sub _koha_add_biblioitem {
Link Here
|
3143 |
$biblioitemnumber = $biblioitem->{'biblioitemnumber'}; |
3140 |
$biblioitemnumber = $biblioitem->{'biblioitemnumber'}; |
3144 |
if (! ($biblioitemnumber =~ /^\d+$/) ) { |
3141 |
if (! ($biblioitemnumber =~ /^\d+$/) ) { |
3145 |
$error .= "C4::Biblio::_koha_add_biblioitem():> biblioitemnumber $biblioitemnumber is not a number! Using a new biblioitemnumber\n"; |
3142 |
$error .= "C4::Biblio::_koha_add_biblioitem():> biblioitemnumber $biblioitemnumber is not a number! Using a new biblioitemnumber\n"; |
3146 |
warn $error; |
|
|
3147 |
} |
3143 |
} |
3148 |
elsif (! ($biblioitemnumber > 0)) { |
3144 |
elsif (! ($biblioitemnumber > 0)) { |
3149 |
$error .= "C4::Biblio::_koha_add_biblioitem():> biblioitemnumber $biblioitemnumber is not greater than 0! Using a new biblioitemnumber\n"; |
3145 |
$error .= "C4::Biblio::_koha_add_biblioitem():> biblioitemnumber $biblioitemnumber is not greater than 0! Using a new biblioitemnumber\n"; |
3150 |
warn $error; |
|
|
3151 |
} |
3146 |
} |
3152 |
#The real Perl LONG_MAX is 2147483646, but using 2147483640 |
3147 |
#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. |
3148 |
# so we can detect the imminent primary key exhaustion before it actually is exhausted. |
3154 |
elsif (! ($biblioitemnumber < 2147483640)) { |
3149 |
elsif (! ($biblioitemnumber < 2147483640)) { |
3155 |
$error .= "C4::Biblio::_koha_add_biblioitem():> biblioitemnumber $biblioitemnumber is too large for Perl! Using a new biblioitemnumber\n"; |
3150 |
$error .= "C4::Biblio::_koha_add_biblioitem():> biblioitemnumber $biblioitemnumber is too large for Perl! Using a new biblioitemnumber\n"; |
3156 |
warn $error; |
|
|
3157 |
} |
3151 |
} |
3158 |
else { |
3152 |
else { |
3159 |
#We have validated the biblionumber and can prepare to insert it. |
3153 |
#We have validated the biblionumber and can prepare to insert it. |
3160 |
- |
|
|