projects
/
ferlib2koha.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a40b6df
)
extend dateexpiry for users which exist in ferweb
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Wed, 5 Sep 2012 15:51:55 +0000
(17:51 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Wed, 5 Sep 2012 15:51:55 +0000
(17:51 +0200)
ferweb-import-report.pl
patch
|
blob
|
history
diff --git
a/ferweb-import-report.pl
b/ferweb-import-report.pl
index
9042b8a
..
926d7e2
100755
(executable)
--- 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';
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;
die "$ferweb_csv : $!" unless -r $ferweb_csv;
@@
-32,6
+33,12
@@
values
(?,'S',?,?,?,'SRE',?,'2021-12-13')
});
(?,'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 ) {
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 ) {
$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);
} 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}++;
$stat->{new}++;
+ print "NEW ";
}
print join(" "
}
print join(" "
@@
-58,6
+72,6
@@
while( my $row = $s->fetchrow_hashref ) {
}
}
-
#
$k->commit;
+$k->commit;
-warn
dump( $stat )
;
+warn
"# stat ", dump( $stat ),$/
;