From 4429c343d51528fef3b1385aa65225dcdcc39ced Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 28 Jun 2011 00:27:15 +0200
Subject: [PATCH] aqbooksellers

---
 ferlib2koha.pl | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

diff --git a/ferlib2koha.pl b/ferlib2koha.pl
index fdec3c7..e702ddb 100755
--- a/ferlib2koha.pl
+++ b/ferlib2koha.pl
@@ -11,7 +11,7 @@ $|++;
 
 my $import = {
 	borrowers => $ENV{FULL} || 0,
-	issues    => $ENV{FULL} || 1,
+	issues    => $ENV{FULL} || 0,
 	reserves  => $ENV{FULL} || 0,
 	barcode   => $ENV{FULL} || 0,
 };
@@ -390,6 +390,28 @@ while( my $row = $sth->fetchrow_hashref ) {
 } # 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;
-- 
2.20.1