From 2c34126b9cc9d548fd93dcf4754425500fd51bf2 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 7 Nov 2016 17:01:03 +0100 Subject: [PATCH] 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). --- C4/SIP/interactive_members_dump.pl | 22 ---------------------- 1 file changed, 22 deletions(-) delete mode 100755 C4/SIP/interactive_members_dump.pl diff --git a/C4/SIP/interactive_members_dump.pl b/C4/SIP/interactive_members_dump.pl deleted file mode 100755 index 2389769..0000000 --- a/C4/SIP/interactive_members_dump.pl +++ /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"; -} -- 2.1.4