--- member-flags.pl.original	2004-11-22 09:51:47.696405416 -0300
+++ member-flags.pl	2004-11-22 09:53:25.957467464 -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 (silva@ort.edu.uy) - 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;