gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 6448 - carp on invalid barcode 

This is consistent with implementation of other barcode types
which all carp instead of die on invalid barcodes.
This commit is contained in:
Dobrica Pavlinusic 2012-08-04 00:03:11 +02:00 committed by Paul Poulain
parent 6271f9b6c4
commit 8f2dcc6741
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C4/Barcodes/EAN13.pm
View File

@ -24,6 +24,7 @@ use C4::Context;
use C4::Debug;
use Algorithm::CheckDigits;
use Carp;
use vars qw($VERSION @ISA);
use vars qw($debug $cgi_debug); # from C4::Debug, of course
@ -40,7 +41,8 @@ sub parse {
if ( $ean->is_valid($barcode) ) {
return ( '', $ean->basenumber($barcode), $ean->checkdigit($barcode) );
} else {
die "$barcode not valid EAN-13 barcode";
carp "$barcode not valid EAN-13 barcode";
return ( '', $barcode, '' );
}
}