+
+ warn "# row = ",dump($row),$/;
+
+ my $user = $f->getinfobycode( $row->{jmbag} );
+
+ warn "# user = ", dump($user), $/;
+
+ $user_exists->execute( 'S' . $row->{jmbag} );
+
+ if ( $user_exists->rows ) {
+ warn "EXISTS: ",dump($row);
+ print "#";
+ } else {
+ $insert_user->execute( 'S' . $row->{jmbag}, $user->{nick}, $user->{first_name}, $user->{last_name}, $user->{email} );
+ }
+
+ print join(" "
+ , $row->{jmbag}
+ , $user->{nick}
+ , $user->{email}
+ ),$/;
+