translated for 2.2.2 by hellen

[koha.git] / members / member-flags.pl

diff --git a/members/member-flags.pl b/members/member-flags.pl
index 8522f3e..844536f 100755 (executable)
--- a/members/member-flags.pl
+++ b/members/member-flags.pl
@@ -56,10 +56,12 @@ if ($input->param('newflags')) {
     }
     my $sth=$dbh->prepare("update borrowers set flags=? where borrowernumber=?");
     $sth->execute($flags, $member);
-    print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=$member");
+    print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$member");
 } else {
-    my ($bor,$flags,$accessflags)=getpatroninformation(\%env, $member,'');
-
+#     my ($bor,$flags,$accessflags)=getpatroninformation(\%env, $member,'');
+    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;