Taking out warn

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

diff --git a/members/member-flags.pl b/members/member-flags.pl
index 844536f..e633c4a 100755 (executable)
--- a/members/member-flags.pl
+++ b/members/member-flags.pl
@@ -6,44 +6,35 @@
 
 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;
 
-my $input = new CGI;
+use C4::Output;
 
-my $flagsrequired;
-$flagsrequired->{borrowers}=1;
-$flagsrequired->{permissions}=1;
+my $input = new CGI;
 
+my $flagsrequired = { permissions => 1 };
+my $member=$input->param('member');
+my $bor = GetMemberDetails( $member,'');
+if( $bor->{'category_type'} eq 'S' )  {
+       $flagsrequired->{'staffaccess'} = 1;
+}
 my ($template, $loggedinuser, $cookie)
        = get_template_and_user({template_name => "members/member-flags.tmpl",
                                query => $input,
                                type => "intranet",
                                authnotrequired => 0,
-                               flagsrequired => {borrowers => 1},
+                               flagsrequired => $flagsrequired,
                                debug => 1,
                                });
 
 
-
-
-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 +47,9 @@ if ($input->param('newflags')) {
     }
     my $sth=$dbh->prepare("update borrowers set flags=? where borrowernumber=?");
     $sth->execute($flags, $member);
-    print $input->redirect("/cgi-bin/koha/members/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 = getpatroninformation(\%env, $member,'');
+#     my ($bor,$flags,$accessflags)=GetMemberDetails($member,'');
     my $flags = $bor->{'flags'};
     my $accessflags = $bor->{'authflags'};
     my $dbh=C4::Context->dbh();
@@ -69,7 +59,7 @@ if ($input->param('newflags')) {
     while (my ($bit, $flag, $flagdesc) = $sth->fetchrow) {
        my $checked='';
        if ($accessflags->{$flag}) {
-           $checked='checked';
+           $checked= 1;
        }
        my %row = ( bit => $bit,
                 flag => $flag,
@@ -78,10 +68,27 @@ if ($input->param('newflags')) {
        push @loop, \%row;
     }
 
-    $template->param(member => $member,
-                       surname => $bor->{'surname'},
-                       firstname => $bor->{'firstname'},
-                       loop => \@loop);
+       my $borrowercategory = GetBorrowercategory( $bor->{'categorycode'} );
+my $category_type = $borrowercategory->{'category_type'};
+( $template->param( adultborrower => 1 ) ) if ( $category_type eq 'A' );
+       
+    $template->param(borrowernumber => $member,
+                   borrowernumber => $bor->{'borrowernumber'},
+               cardnumber => $bor->{'cardnumber'},
+                   surname => $bor->{'surname'},
+                   firstname => $bor->{'firstname'},
+                   categorycode => $bor->{'categorycode'},
+                   category_type => $bor->{'category_type'},
+                   category_description => $bor->{'description'},
+                   address => $bor->{'address'},
+                       address2 => $bor->{'address2'},
+                   city => $bor->{'city'},
+                       zipcode => $bor->{'zipcode'},
+                       phone => $bor->{'phone'},
+                       email => $bor->{'email'},
+                   branchcode => $bor->{'branchcode'},
+                       loop => \@loop,
+                       );
 
     output_html_with_http_headers $input, $cookie, $template->output;