|
Lines 1-22
Link Here
|
| 1 |
#!/usr/bin/perl |
|
|
| 2 |
# |
| 3 |
|
| 4 |
use warnings; |
| 5 |
use strict; |
| 6 |
|
| 7 |
use C4::Members; |
| 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 |
print "GetMember : \n", Dumper(GetMember('cardnumber'=>$in)); |
| 17 |
my ($member) = GetMemberDetails(undef, $in); |
| 18 |
my $flags = $member->{authflags}; |
| 19 |
print "GetMemberDetails (member) : \n", Dumper($member); |
| 20 |
print "GetMemberDetails ( flags) : \n", Dumper($flags); |
| 21 |
print "=" x 10, "\n"; |
| 22 |
} |
| 23 |
- |