From 504a6d686b3e5e951db1018a4ae1689da9983dfc Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 15 Jun 2011 18:20:54 +0200
Subject: [PATCH] convert barcodes back for lookups to work

---
 ferlib2koha.pl | 2 ++
 1 file changed, 2 insertions(+)

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);
-- 
2.20.1