convert barcodes back for lookups to work

diff --git a/ferlib2koha.pl b/ferlib2koha.pl
index a2bfbbb..9a9529a 100755 (executable)
--- a/ferlib2koha.pl
+++ b/ferlib2koha.pl
@@ -196,6 +196,8 @@ warn "# BorrowersTitles [$BorrowersTitles]";
 
 } # import->{borrowers}
 
+$k->do(qq{ update items set barcode=substr(barcode,1,12)*1 where length(barcode) = 13 }); # convert barcodes back for lookups to work
+
 sub issues {
        my ($table,$sql) = @_;
        my $sth = $f->prepare($sql);