From 90c9edffc56fe66a0d8f152e84c4aab3ec11ed8d Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Fri, 16 Aug 2002 20:42:32 +0000
Subject: [PATCH] Added missing $accessflagshash chunk to getpatroninformation

---
 C4/Circulation/Circ2.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm
index f650016876..2119bc803e 100755
--- a/C4/Circulation/Circ2.pm
+++ b/C4/Circulation/Circ2.pm
@@ -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;
-- 
2.39.5