From 1a46bc121894d86d416a67973a62682b16cb2e68 Mon Sep 17 00:00:00 2001 From: "Joe Atzberger (siptest" Date: Wed, 4 Jun 2008 18:14:56 -0500 Subject: [PATCH] Interactive debugging aides for SIP abstraction layer. Signed-off-by: Joshua Ferraro --- C4/SIP/interactive_item_dump.pl | 18 ++++++++++++++++++ C4/SIP/interactive_patron_dump.pl | 18 ++++++++++++++++++ C4/SIP/interactive_renew_all_dump.pl | 22 ++++++++++++++++++++++ 3 files changed, 58 insertions(+) create mode 100755 C4/SIP/interactive_item_dump.pl create mode 100755 C4/SIP/interactive_patron_dump.pl create mode 100755 C4/SIP/interactive_renew_all_dump.pl diff --git a/C4/SIP/interactive_item_dump.pl b/C4/SIP/interactive_item_dump.pl new file mode 100755 index 0000000000..ece250ef73 --- /dev/null +++ b/C4/SIP/interactive_item_dump.pl @@ -0,0 +1,18 @@ +#!/usr/bin/perl +# + +use warnings; +use strict; + +use ILS::Item; +use Data::Dumper; + +while (1) { + print "Enter item barcode: "; + my $in = <>; + defined($in) or last; + chomp($in); + last unless $in; + my $patron = ILS::Item->new($in); + print Dumper($patron); +} diff --git a/C4/SIP/interactive_patron_dump.pl b/C4/SIP/interactive_patron_dump.pl new file mode 100755 index 0000000000..557d2f704e --- /dev/null +++ b/C4/SIP/interactive_patron_dump.pl @@ -0,0 +1,18 @@ +#!/usr/bin/perl +# + +use warnings; +use strict; + +use ILS::Patron; +use Data::Dumper; + +while (1) { + print "Enter patron barcode: "; + my $in = <>; + defined($in) or last; + chomp($in); + last unless $in; + my $patron = ILS::Patron->new($in); + print Dumper($patron); +} diff --git a/C4/SIP/interactive_renew_all_dump.pl b/C4/SIP/interactive_renew_all_dump.pl new file mode 100755 index 0000000000..27e775a620 --- /dev/null +++ b/C4/SIP/interactive_renew_all_dump.pl @@ -0,0 +1,22 @@ +#!/usr/bin/perl +# + +use warnings; +use strict; + +use ILS::Transaction::RenewAll; +use Data::Dumper; + +while (1) { + print "Enter patron barcode: "; + my $in = <>; + defined($in) or last; + chomp($in); + last unless $in; + my $patron = ILS::Patron->new($in); + print "Patron before: \n " . Dumper($patron); + my $action = ILS::Transaction::RenewAll->new(); + $action->do_renew_all(); + print "\n\nTransaction::RenewAll: " . Dumper($action); + print "\n", "=" x 35, "\n"; +} -- 2.39.5