Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Interactive tests for SIP abstraction representation and Members.

Browse source 
The test for members is useful to compare against the SIP (ILS)
representation.

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Joe Atzberger (siptest 2008-06-24 17:35:13 -05:00 committed by Joshua Ferraro
parent 3e7013d174
commit 99efcf83f0
2 changed files with 48 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
C4/SIP/interactive_members_dump.pl Executable file
View file

@ -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";
}

26
C4/SIP/interactive_patron_check_password.pl Executable file
View file

@ -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";
}