gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 17578: GetMemberDetails - Remove authflags - 2 

This script is not used from the Koha codebase and does not seem very
useful.
We could rewrite it if needed later (ie. if someone complains I will
rewrite it).

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
This commit is contained in:
Jonathan Druart 2016-11-07 17:01:03 +01:00 committed by Kyle M Hall
parent fbb50b517f
commit d1e7bbc602
1 changed files with 0 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
C4/SIP/interactive_members_dump.pl
View File

@ -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";
}