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 }