C4/SIP/interactive_members_dump.pl

   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 }