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

[Steve Tonnesen]

Update of /cvsroot/koha/koha/C4/Circulation
In directory usw-pr-cvs1:/tmp/cvs-serv17417

Modified Files:
      Tag: rel-1-2
        Circ2.pm 
Log Message:
Bug fix... user access flags were not getting set properly in sub
getpatroninformation.


Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.21.2.6
retrieving revision 1.21.2.7
diff -C2 -r1.21.2.6 -r1.21.2.7
*** Circ2.pm    16 Aug 2002 20:42:32 -0000      1.21.2.6
--- Circ2.pm    6 Sep 2002 16:21:07 -0000       1.21.2.7
***************
*** 143,147 ****
      $sth->execute;
      while (my ($bit, $flag) = $sth->fetchrow) {
!       if ($flags & 2**$bit) {
            $accessflagshash->{$flag}=1;
        }
--- 143,147 ----
      $sth->execute;
      while (my ($bit, $flag) = $sth->fetchrow) {
!       if ($borrower->{'flags'} & 2**$bit) {
            $accessflagshash->{$flag}=1;
        }