projects
/
koha.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Bug 17196: Move marcxml out of the biblioitems table
[koha.git]
/
C4
/
SIP
/
interactive_patron_dump.pl
1
#!/usr/bin/perl
2
#
3
4
use warnings;
5
use strict;
6
7
use C4::SIP::ILS::Patron;
8
use Data::Dumper;
9
10
while (1) {
11
print "Enter patron barcode: ";
12
my $in = <>;
13
defined($in) or last;
14
chomp($in);
15
last unless $in;
16
my $patron = C4::SIP::ILS::Patron->new($in);
17
print "Patron ($in):\n", Dumper($patron);
18
}