Bug 5446 Fix a bug introduces by previous patch
[koha.git] / C4 / SIP / interactive_patron_dump.pl
blob6788ce03649534f4f5c645fe1536448474aaa8f9
1 #!/usr/bin/perl
4 use warnings;
5 use strict;
7 use ILS::Patron;
8 use Data::Dumper;
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 = ILS::Patron->new($in);
17 print "Patron ($in):\n", Dumper($patron);