my $import = {
borrowers => 1,
- issues => 0,
- barcode => 0,
+ issues => 1,
+ barcode => 1,
};
my $f = DBI->connect("dbi:SQLite:dbname=knjiznica.sqlite","","", { RaiseError => 1, AutoCommit => 0 }) || die $DBI::errstr;
$row->{'email'} = lookup($u, 'users', 'jmbag', 'email', substr($row->{cardnumber},1), undef); # $row->{B_email} || $row->{emailpro} )
+ $row->{'userid'} = lookup($u, 'users', 'jmbag', 'nick', substr($row->{cardnumber},1), $row->{cardnumber});
+
$row->{sex} =~ s/\x{17D}/F/;
$row->{city} ||= '?'; # not null
while (my $row = $sth->fetchrow_hashref ) {
$row->{borrowernumber} = lookup($k, 'borrowers', 'cardnumber' => 'borrowernumber', $row->{borrowernumber});
$row->{itemnumber} = lookup($k, 'items', 'barcode' => 'itemnumber', $row->{itemnumber});
+ $row->{returndate} = '31.12.2011';
insert $table => $row;
}
}
if ( $import->{barcode} ) {
-my $sth = $k->prepare(qq{ select itemnumber,barcode from items });
+my $sth = $k->prepare(qq{ select itemnumber,barcode from items where length(barcode) < 13 });
my $sth_update = $k->prepare(qq{ update items set barcode=? where itemnumber=? });
$sth->execute;