View | Details | Raw Unified | Return to bug 6113
Collapse All | Expand All

(-)a/C4/Biblio.pm (-4 / +3 lines)
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
- 

Return to bug 6113