calculate EAN-13 controll checksum

diff --git a/ferlib2koha.pl b/ferlib2koha.pl
index cafff9a..f95f52f 100755 (executable)
--- a/ferlib2koha.pl
+++ b/ferlib2koha.pl
@@ -3,12 +3,13 @@
 use strict;
 use DBI;
 use Data::Dump qw/dump/;
+use Algorithm::CheckDigits;
 
 $|++;
 
 my $import = {
-       borrowers => 1,
-       issues => 1,
+       borrowers => 0,
+       issues => 0,
 };
 
 my $f = DBI->connect("dbi:SQLite:dbname=knjiznica.sqlite","","", { RaiseError => 1, AutoCommit => 0 }) || die $DBI::errstr;
@@ -231,4 +232,17 @@ set onloan = date_due, datelastborrowed = issuedate
 
 }; # import->{issues}
 
+
+my $sth        = $k->prepare(qq{ select itemnumber,barcode from items });
+my $sth_update = $k->prepare(qq{ update items set barcode=? where itemnumber=? });
+
+$sth->execute;
+warn "update ", $sth->rows, " barcodes";
+
+my $ean = CheckDigits('ean');
+
+while( my $row = $sth->fetchrow_hashref ) {
+       $sth_update->execute( $ean->complete( sprintf('%012d', $row->{barcode}) ), $row->{itemnumber} );
+}
+
 $k->commit;