my $import = {
borrowers => $ENV{FULL} || 0,
- issues => $ENV{FULL} || 1,
+ issues => $ENV{FULL} || 0,
reserves => $ENV{FULL} || 0,
barcode => $ENV{FULL} || 0,
};
} # import->{barcode}
+sub aqbooksellers {
+ my ($sql) = @_;
+ my $sth = $f->prepare($sql);
+ $sth->execute;
+
+ $insert = undef;
+
+ while (my $row = $sth->fetchrow_hashref ) {
+ insert 'aqbooksellers' => $row;
+ }
+}
+sql $k => qq{
+delete from aqbooksellers;
+alter table aqbooksellers auto_increment = 1;
+};
+aqbooksellers qq{
+select
+ ozn_nacdob as notes,
+ opis_nacdob as name,
+ 'HRK' as currency
+from nacdob
+};
$k->commit;