update nick and userid (from nick)

diff --git a/ferweb-import-report.pl b/ferweb-import-report.pl
index 20960af..6c8b2f2 100755 (executable)
--- a/ferweb-import-report.pl
+++ b/ferweb-import-report.pl
@@ -48,27 +48,52 @@ set dateexpiry = ?
 where cardnumber = ?
 });
 
+my $update_userid = $k->prepare(qq{
+update borrowers
+set userid = ?
+where cardnumber = ?
+});
+
+my $update_email = $k->prepare(qq{
+update borrowers
+set email = ?
+where cardnumber = ?
+});
+
 my $stat;
 
 while( my $row = $s->fetchrow_hashref ) {
 
 #      warn "# row = ",dump($row),$/;
 
-       $user_exists->execute( 'S' . $row->{jmbag} );
+       my $cardnumber = 'S' . $row->{jmbag};
+
+       $user_exists->execute( $cardnumber );
 
        if ( $user_exists->rows ) {
                my $user = $user_exists->fetchrow_hashref;
 #              warn "# koha borrower = ",dump($user);
                print "UPD ";
                $stat->{updated}++;
-               $update_dateexpiry->execute( $new_dateexpiry, 'S' . $row->{jmbag} );
+               $update_dateexpiry->execute( $new_dateexpiry, $cardnumber );
+               if ( $user->{userid} ne $row->{nick} ) {
+                       $stat->{nick_update}++;
+                       warn "UPDATE userid ", $user->{userid}, " => ", $row->{nick}, $/;
+                       $update_userid->execute( $row->{nick}, $cardnumber );
+               }
+               if ( $user->{email} ne $row->{email} ) {
+                       $stat->{email_update}++;
+                       warn "UPDATE email ", $user->{email}, " => ", $row->{email}, $/;
+                       $update_email->execute( $row->{email}, $cardnumber );
+               }
        } elsif ( ! $row->{nick} ) {
                warn "NEW (without nick) ",dump($row);
                $stat->{new_no_nick}++;
                print "NC? ";
+               $insert_user->execute( $cardnumber, $cardnumber, $row->{ime}, $row->{prezime}, $row->{email} || $cardnumber );
        } else {
                warn "NEW: ",dump($row);
-               $insert_user->execute( 'S' . $row->{jmbag}, $row->{nick}, $row->{ime}, $row->{prezime}, $row->{email} );
+               $insert_user->execute( $cardnumber, $row->{nick}, $row->{ime}, $row->{prezime}, $row->{email} );
                $stat->{new}++;
                print "NEW ";
        }