From 20642d5592b6fd54ce9dc41b244ac3d5602fa6d4 Mon Sep 17 00:00:00 2001 From: tipaul Date: Mon, 22 Nov 2004 15:53:20 +0000 Subject: [PATCH] bugfix from south america ;-) (fixing permission showing bug) --- members/member-flags.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/members/member-flags.pl b/members/member-flags.pl index d5d74d34a6..844536f2a4 100755 --- a/members/member-flags.pl +++ b/members/member-flags.pl @@ -58,8 +58,10 @@ if ($input->param('newflags')) { $sth->execute($flags, $member); print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$member"); } else { - my ($bor,$flags,$accessflags)=getpatroninformation(\%env, $member,''); - +# my ($bor,$flags,$accessflags)=getpatroninformation(\%env, $member,''); + my $bor = getpatroninformation(\%env, $member,''); + my $flags = $bor->{'flags'}; + my $accessflags = $bor->{'authflags'}; my $dbh=C4::Context->dbh(); my $sth=$dbh->prepare("select bit,flag,flagdesc from userflags order by bit"); $sth->execute; -- 2.39.5