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>
+++ /dev/null
-#!/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";
-}