From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 5 Sep 2012 15:51:55 +0000 (+0200)
Subject: extend dateexpiry for users which exist in ferweb
X-Git-Url: http://git.rot13.org/?p=ferlib2koha.git;a=commitdiff_plain;h=7425d8f21604f9556734e83049b20cae2daf9f8b

extend dateexpiry for users which exist in ferweb
---

diff --git a/ferweb-import-report.pl b/ferweb-import-report.pl
index 9042b8a..926d7e2 100755
--- a/ferweb-import-report.pl
+++ b/ferweb-import-report.pl
@@ -7,6 +7,7 @@ use Algorithm::CheckDigits;
 use Text::Unaccent;
 
 my $ferweb_csv = 'report_62836_1026_Aktivni_studenti.csv';
+my $new_dateexpiry = '2013-10-31';
 
 die "$ferweb_csv : $!" unless -r $ferweb_csv;
 
@@ -32,6 +33,12 @@ values
 (?,'S',?,?,?,'SRE',?,'2021-12-13')
 });
 
+my $update_dateexpiry = $k->prepare(qq{
+update borrowers
+set dateexpiry = ?
+where cardnumber = ?
+});
+
 my $stat;
 
 while( my $row = $s->fetchrow_hashref ) {
@@ -41,13 +48,20 @@ while( my $row = $s->fetchrow_hashref ) {
 	$user_exists->execute( 'S' . $row->{jmbag} );
 
 	if ( $user_exists->rows ) {
-#		warn "EXISTS: ",dump($row);
-		print "#";
-		$stat->{exists}++;
+		my $user = $user_exists->fetchrow_hashref;
+#		warn "# koha borrower = ",dump($user);
+		print "UPD ";
+		$stat->{updated}++;
+		$update_dateexpiry->execute( $new_dateexpiry, 'S' . $row->{jmbag} );
+	} elsif ( ! $row->{nick} ) {
+		warn "NEW (without nick) ",dump($row);
+		$stat->{new_no_nick}++;
+		print "NC? ";
 	} else {
 		warn "NEW: ",dump($row);
-#		$insert_user->execute( 'S' . $row->{jmbag}, $user->{nick}, $user->{first_name}, $user->{last_name}, $user->{email} );
+		$insert_user->execute( 'S' . $row->{jmbag}, $row->{nick}, $row->{ime}, $row->{prezime}, $row->{email} );
 		$stat->{new}++;
+		print "NEW ";
 	}
 
 	print join(" "
@@ -58,6 +72,6 @@ while( my $row = $s->fetchrow_hashref ) {
 
 }
 
-#$k->commit;
+$k->commit;
 
-warn dump( $stat );
+warn "# stat ", dump( $stat ),$/;