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 |
- |