From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 27 Jun 2011 22:27:15 +0000 (+0200)
Subject: aqbooksellers
X-Git-Url: http://git.rot13.org/?p=ferlib2koha.git;a=commitdiff_plain;h=4429c343d51528fef3b1385aa65225dcdcc39ced

aqbooksellers
---

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;