From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 15 Jun 2011 16:20:54 +0000 (+0200)
Subject: convert barcodes back for lookups to work
X-Git-Url: http://git.rot13.org/?p=ferlib2koha.git;a=commitdiff_plain;h=504a6d686b3e5e951db1018a4ae1689da9983dfc

convert barcodes back for lookups to work
---

diff --git a/ferlib2koha.pl b/ferlib2koha.pl
index a2bfbbb..9a9529a 100755
--- 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);