[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;
  	}