View | Details | Raw Unified | Return to bug 17578
Collapse All | Expand All

(-)a/C4/SIP/interactive_members_dump.pl (-23 lines)
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
- 

Return to bug 17578