From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 15 Aug 2011 14:52:27 +0000 (+0200)
Subject: user FERWeb to fetch user data
X-Git-Url: http://git.rot13.org/?p=ferlib2koha.git;a=commitdiff_plain;h=a268e38b0b7ad15be4561192ec6f25f1508e2031

user FERWeb to fetch user data
---

diff --git a/isvu-import.pl b/isvu-import.pl
index 44defc4..b5ad116 100755
--- a/isvu-import.pl
+++ b/isvu-import.pl
@@ -6,6 +6,10 @@ use Data::Dump qw/dump/;
 use Algorithm::CheckDigits;
 use Text::Unaccent;
 
+use lib 'lib';
+use FERWeb;
+
+my $f = FERWeb->new;
 my $c = DBI->connect("dbi:CSV:","","", { RaiseError => 1, f_ext => '.csv', f_encoding => 'utf-8' }) || die $dbi::errstr;
 
 my $s = $c->prepare(qq{
@@ -15,17 +19,15 @@ $s->execute;
 
 while( my $row = $s->fetchrow_hashref ) {
 
-	my $nick = sprintf '%s%s%s'
-		, substr($row->{ime},0,1)
-		, substr($row->{prezime},0,1)
-		, $row->{jmbag} =~ m/^0036/
-			? substr($row->{jmbag},4,-1)
-			: substr($row->{jmbag},0,-1)
-	;
+	warn "# row = ",dump($row),$/;
+
+	my $user = $f->getinfobycode( $row->{jmbag} );
 
-	$nick = lc unac_string('utf-8', $nick);
+	warn "# user = ", dump($user), $/;
 
-	print "$nick ", $row->{jmbag},$/;
-	
-	warn "# $nick row = ",dump($row),$/;
+	print join(" "
+		, $row->{jmbag}
+		, $user->{nick}
+		, $user->{email}
+	),$/;
 }