Bug 17578: GetMemberDetails - Remove authflags - 2
authorJonathan Druart <jonathan.druart@bugs.koha-community.org>
Mon, 7 Nov 2016 16:01:03 +0000 (17:01 +0100)
committerKyle M Hall <kyle@bywatersolutions.com>
Fri, 16 Dec 2016 13:12:41 +0000 (13:12 +0000)
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>
C4/SIP/interactive_members_dump.pl [deleted file]

diff --git a/C4/SIP/interactive_members_dump.pl b/C4/SIP/interactive_members_dump.pl
deleted file mode 100755 (executable)
index 2389769..0000000
+++ /dev/null
@@ -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";
-}