[Koha-devel] member-flags.pl patch

[Ernesto Silva - Webmaster]

Hi,
	We are using Koha version 2.1.2 and we detected that the user flags 
didn't show up. This is one possible patch.

Regards.
--
Ernesto Silva  -  Webmaster  -  Universidad ORT Uruguay
Cuareim 1451.
Montevideo.
Montevideo - 11100.
Uruguay.

Email: address@hidden

"Men and nations will act rationally
  when all other possibilities have been exhausted."

     Katz law.

--- member-flags.pl.original    2004-11-11 11:28:00.684539200 -0300
+++ member-flags.pl     2004-11-11 12:17:10.340123392 -0300
@@ -58,8 +58,14 @@
     $sth->execute($flags, $member);
     print 
$input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$member");
 } else {
-    my ($bor,$flags,$accessflags)=getpatroninformation(\%env, $member,'');
-
+#----------------------------------------------------------------------------
+# 11-11-2004 - Ernesto Silva (address@hidden) - member flags didn't show up
+# because getpatroninformation returned a complex "borrower" object not a list.
+# More information in: C4/Circulation/Circ2.pm  - line 238
+    my $bor = getpatroninformation(\%env, $member,'');
+    my $flags = $bor->{'flags'};
+    my $accessflags = $bor->{'authflags'};
+#----------------------------------------------------------------------------
     my $dbh=C4::Context->dbh();
     my $sth=$dbh->prepare("select bit,flag,flagdesc from userflags order by 
bit");
     $sth->execute;