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

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

Return to bug 6113