[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-devel] member-flags.pl patch
From: |
Ernesto Silva - Webmaster |
Subject: |
[Koha-devel] member-flags.pl patch |
Date: |
Thu Nov 11 07:44:06 2004 |
User-agent: |
Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.2) Gecko/20040803 |
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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-devel] member-flags.pl patch,
Ernesto Silva - Webmaster <=