11 print "Enter patron barcode: ";
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);