Interactive debugging aides for SIP abstraction layer.

Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/C4/SIP/interactive_item_dump.pl b/C4/SIP/interactive_item_dump.pl
new file mode 100755 (executable)
index 0000000..ece250e
--- /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 (executable)
index 0000000..557d2f7
--- /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 (executable)
index 0000000..27e775a
--- /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";
+}