gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added missing $accessflagshash chunk to getpatroninformation

This commit is contained in:
tonnesen 2002-08-16 20:42:32 +00:00
parent a5349c29ea
commit 90c9edffc5
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C4/Circulation/Circ2.pm
View File

@ -137,6 +137,15 @@ sub getpatroninformation {
$sth->execute;
my $borrower = $sth->fetchrow_hashref;
my $flags = patronflags($env, $borrower, $dbh);
my $accessflagshash;
$sth=$dbh->prepare("select bit,flag from userflags");
$sth->execute;
while (my ($bit, $flag) = $sth->fetchrow) {
if ($flags & 2**$bit) {
$accessflagshash->{$flag}=1;
}
}
$sth->finish;
$dbh->disconnect;
$borrower->{'flags'}=$flags;