changing permissions on templates and scripts

[koha_fer] / members / member-flags.pl

diff --git a/members/member-flags.pl b/members/member-flags.pl
index 8522f3e..36a240a 100755 (executable)
--- a/members/member-flags.pl
+++ b/members/member-flags.pl
@@ -6,15 +6,14 @@
 
 use strict;
 
-use C4::Search;
 use CGI;
 use C4::Output;
 use C4::Auth;
 use C4::Context;
-use C4::Circulation::Circ2;
+use C4::Members;
 #use C4::Acquisitions;
-use HTML::Template;
-use C4::Interface::CGI::Output;
+
+use C4::Output;
 
 my $input = new CGI;
 
@@ -27,7 +26,7 @@ my ($template, $loggedinuser, $cookie)
                                query => $input,
                                type => "intranet",
                                authnotrequired => 0,
-                               flagsrequired => {borrowers => 1},
+                               flagsrequired => {permissions => 1},
                                debug => 1,
                                });
 
@@ -35,15 +34,8 @@ my ($template, $loggedinuser, $cookie)
 
 
 my $member=$input->param('member');
-my %env;
-$env{'nottodayissues'}=1;
 my %member2;
 $member2{'borrowernumber'}=$member;
-my $issues=currentissues(\%env,\%member2);
-my $i=0;
-foreach (sort keys %$issues) {
-    $i++;
-}
 
 if ($input->param('newflags')) {
     my $dbh=C4::Context->dbh();
@@ -56,10 +48,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?borrowernumber=$member");
 } else {
-    my ($bor,$flags,$accessflags)=getpatroninformation(\%env, $member,'');
-
+#     my ($bor,$flags,$accessflags)=GetMemberDetails($member,'');
+    my $bor = GetMemberDetails( $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;
@@ -79,7 +73,11 @@ if ($input->param('newflags')) {
     $template->param(member => $member,
                        surname => $bor->{'surname'},
                        firstname => $bor->{'firstname'},
-                       loop => \@loop);
+                       loop => \@loop,
+                       intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
+               intranetstylesheet => C4::Context->preference("intranetstylesheet"),
+               IntranetNav => C4::Context->preference("IntranetNav"),
+                       );
 
     output_html_with_http_headers $input, $cookie, $template->output;