[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/members member-flags.pl,1.2,1.3
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/members member-flags.pl,1.2,1.3 |
Date: |
Mon, 22 Nov 2004 07:53:23 -0800 |
Update of /cvsroot/koha/koha/members
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7822/members
Modified Files:
member-flags.pl
Log Message:
bugfix from south america ;-) (fixing permission showing bug)
Index: member-flags.pl
===================================================================
RCS file: /cvsroot/koha/koha/members/member-flags.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** member-flags.pl 8 Apr 2004 16:10:13 -0000 1.2
--- member-flags.pl 22 Nov 2004 15:53:20 -0000 1.3
***************
*** 59,64 ****
print
$input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$member");
} else {
! my ($bor,$flags,$accessflags)=getpatroninformation(\%env, $member,'');
!
my $dbh=C4::Context->dbh();
my $sth=$dbh->prepare("select bit,flag,flagdesc from userflags order by
bit");
--- 59,66 ----
print
$input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$member");
} else {
! # 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");
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/members member-flags.pl,1.2,1.3,
Paul POULAIN <=