From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 15 Jun 2011 18:09:30 +0000 (+0200)
Subject: correct statistics
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=814f65139d9c16b63f2cc6542b93db8db9d7fe73;p=ferlib2koha.git

correct statistics
---

diff --git a/ferlib2koha.pl b/ferlib2koha.pl
index 46d81e1..761cf9c 100755
--- a/ferlib2koha.pl
+++ b/ferlib2koha.pl
@@ -8,9 +8,10 @@ use Algorithm::CheckDigits;
 $|++;
 
 my $import = {
-	borrowers => $ENV{FULL},
-	issues    => $ENV{FULL},
-	barcode   => $ENV{FULL},
+	borrowers => 0,
+	issues    => 1,
+	reserves  => 0,
+	barcode   => 0,
 };
 
 my $f = DBI->connect("dbi:SQLite:dbname=knjiznica.sqlite","","", { RaiseError => 1, AutoCommit => 0 }) || die $DBI::errstr;
@@ -209,16 +210,18 @@ sub issues {
 	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;
 
 		my $stat = {
-			datetime => $row->{timestamp},
+			datetime => $row->{returndate} || $row->{issuedate},
 			branch   => $row->{branchcode},
 			value    => 0,
-			type     => $table =~ m/old/ ? 'return' : 'issue',
+			type     => $row->{returndate} ? 'return' : 'issue',
 		};
 		$stat->{$_} = $row->{$_} foreach (qw( itemnumber borrowernumber ));
+
+		$row->{returndate} = '31.12.2011';
+		insert $table => $row;
+
 		insert statistics => $stat;
 	}
 }
@@ -252,6 +255,7 @@ set onloan = date_due, datelastborrowed = issuedate
 }; # import->{issues}
 
 
+if ( $import->{reserves} ) {
 
 $k->do(qq{ delete from reserves where borrowernumber > 100 });
 $k->do(qq{ delete from old_reserves where borrowernumber > 100 });
@@ -299,6 +303,7 @@ from rezerv
 reserves 'old_reserves' => qq{$sql_reserves where datum_opoziv != '' or  datum_ponist != '' or  datum_posud != ''};
 reserves 'reserves'     => qq{$sql_reserves where datum_opoziv == '' and datum_ponist == '' and datum_posud == ''};
 
+} # $import->{reserves}
 
 
 if ( $import->{barcode} ) { # XXX must be last!