[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.21.2.5,1.21.2.6
Steve Tonnesen
tonnesen at users.sourceforge.net
Fri Aug 16 22:42:34 CEST 2002
Update of /cvsroot/koha/koha/C4/Circulation
In directory usw-pr-cvs1:/tmp/cvs-serv22304
Modified Files:
Tag: rel-1-2
Circ2.pm
Log Message:
Added missing $accessflagshash chunk to getpatroninformation
Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.21.2.5
retrieving revision 1.21.2.6
diff -C2 -r1.21.2.5 -r1.21.2.6
*** Circ2.pm 15 Aug 2002 00:46:26 -0000 1.21.2.5
--- Circ2.pm 16 Aug 2002 20:42:32 -0000 1.21.2.6
***************
*** 138,141 ****
--- 138,150 ----
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;
More information about the Koha-cvs
mailing list