projects
/
ferlib2koha.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a1273ce
)
update nick and userid (from nick)
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 22 Jul 2014 10:36:52 +0000
(12:36 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 22 Jul 2014 10:36:52 +0000
(12:36 +0200)
ferweb-import-report.pl
patch
|
blob
|
history
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 = ?
});
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),$/;
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}++;
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? ";
} 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);
} 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 ";
}
$stat->{new}++;
print "NEW ";
}