From: Joe Atzberger (siptest) <[EMAIL PROTECTED]>
The test for members is useful to compare against the SIP (ILS)
representation.
---
C4/SIP/interactive_members_dump.pl | 22 ++++++++++++++++++++++
C4/SIP/interactive_patron_check_password.pl | 26 ++++++++++++++++++++++++++
2 files changed, 48 insertions(+), 0 deletions(-)
create mode 100755 C4/SIP/interactive_members_dump.pl
create mode 100755 C4/SIP/interactive_patron_check_password.pl
diff --git a/C4/SIP/interactive_members_dump.pl
b/C4/SIP/interactive_members_dump.pl
new file mode 100755
index 0000000..8df6ea4
--- /dev/null
+++ b/C4/SIP/interactive_members_dump.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+#
+
+use warnings;
+use strict;
+
+use C4::Members;
+use Data::Dumper;
+
+while (1) {
+ print "Enter patron barcode: ";
+ my $in = <>;
+ defined($in) or last;
+ chomp($in);
+ last unless $in;
+ print "GetMember : \n", Dumper(GetMember($in, 'cardnumber'));
+ my ($member) = GetMemberDetails(undef, $in);
+ my $flags = $member->{flags};
+ print "GetMemberDetails (member) : \n", Dumper($member);
+ print "GetMemberDetails ( flags) : \n", Dumper($flags);
+ print "=" x 10, "\n";
+}
diff --git a/C4/SIP/interactive_patron_check_password.pl
b/C4/SIP/interactive_patron_check_password.pl
new file mode 100755
index 0000000..a56701c
--- /dev/null
+++ b/C4/SIP/interactive_patron_check_password.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+#
+
+use warnings;
+use strict;
+
+use ILS::Patron;
+use Sip qw(sipbool);
+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);
+ $patron or next;
+ print "Enter patron password: ";
+ $in = <>;
+ chomp($in);
+ print "Raw password is: " . $patron->{password}, "\n";
+ print " check_password: " . $patron->check_password($in), "\n";
+ print " sipbool: " . sipbool($patron->check_password($in)),
"\n";
+}
--
1.5.5.GIT
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
