C4/SIP/interactive_renew_all_dump.pl

   1 #!/usr/bin/perl
   2 #
   3
   4 use warnings;
   5 use strict;
   6
   7 use ILS::Transaction::RenewAll;
   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 = ILS::Patron->new($in);
  17         print "Patron before: \n " . Dumper($patron);
  18         my $action = ILS::Transaction::RenewAll->new();
  19         $action->do_renew_all();
  20         print "\n\nTransaction::RenewAll: " . Dumper($action);
  21         print "\n", "=" x 35, "\n";
  22 }