projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 12495 - Include streetnumber in hold alert address
[koha_fer]
/
C4
/
Barcodes
/
EAN13.pm
diff --git
a/C4/Barcodes/EAN13.pm
b/C4/Barcodes/EAN13.pm
index
da27c41
..
adc1283
100644
(file)
--- a/
C4/Barcodes/EAN13.pm
+++ b/
C4/Barcodes/EAN13.pm
@@
-24,6
+24,7
@@
use C4::Context;
use C4::Debug;
use Algorithm::CheckDigits;
use C4::Debug;
use Algorithm::CheckDigits;
+use Carp;
use vars qw($VERSION @ISA);
use vars qw($debug $cgi_debug); # from C4::Debug, of course
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 {
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, '' );
}
}
}
}