@@ -, +, @@ --- C4/SIP/interactive_members_dump.pl | 22 ---------------------- 1 file changed, 22 deletions(-) delete mode 100755 C4/SIP/interactive_members_dump.pl --- a/C4/SIP/interactive_members_dump.pl +++ a/C4/SIP/interactive_members_dump.pl @@ -1,22 +0,0 @@ -#!/usr/bin/perl -# - -use warnings; -use strict; - -use C4::Members; -use Data::Dumper; - -while (1) { - print "Enter patron barcode: "; - my $in = <>; - defined($in) or last; - chomp($in); - last unless $in; - print "GetMember : \n", Dumper(GetMember('cardnumber'=>$in)); - my ($member) = GetMemberDetails(undef, $in); - my $flags = $member->{authflags}; - print "GetMemberDetails (member) : \n", Dumper($member); - print "GetMemberDetails ( flags) : \n", Dumper($flags); - print "=" x 10, "\n"; -} --