[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.21.2.5,1.21.2.6

[Steve Tonnesen]

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;