member-flags.pl

   1 #!/usr/bin/perl
   2
   3 # script to edit a member's flags
   4 # Written by Steve Tonnesen
   5 # July 26, 2002 (my birthday!)
   6
   7 use strict;
   8
   9 use C4::Search;
  10 use CGI;
  11 use C4::Output;
  12 use C4::Auth;
  13 use C4::Context;
  14 use C4::Circulation::Circ2;
  15 #use C4::Acquisitions;
  16 use HTML::Template;
  17 use C4::Interface::CGI::Output;
  18
  19 my $input = new CGI;
  20
  21 my $flagsrequired;
  22 $flagsrequired->{borrowers}=1;
  23 $flagsrequired->{permissions}=1;
  24
  25 my ($template, $loggedinuser, $cookie)
  26     = get_template_and_user({template_name => "member-flags.tmpl",
  27                              query => $input,
  28                              type => "intranet",
  29                              authnotrequired => 0,
  30                              debug => 1,
  31                              });
  32
  33
  34
  35
  36 my $member=$input->param('member');
  37 my %env;
  38 $env{'nottodayissues'}=1;
  39 my %member2;
  40 $member2{'borrowernumber'}=$member;
  41 my $issues=currentissues(\%env,\%member2);
  42 my $i=0;
  43 foreach (sort keys %$issues) {
  44     $i++;
  45 }
  46
  47 if ($input->param('newflags')) {
  48     my $dbh=C4::Context->dbh();
  49     my $flags=0;
  50     foreach ($input->param) {
  51         if (/flag-(\d+)/) {
  52             my $flag=$1;
  53             $flags=$flags+2**$flag;
  54         }
  55     }
  56     my $sth=$dbh->prepare("update borrowers set flags=? where borrowernumber=?");
  57     $sth->execute($flags, $member);
  58     print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=$member");
  59 } else {
  60     my ($bor,$flags,$accessflags)=getpatroninformation(\%env, $member,'');
  61
  62     my $dbh=C4::Context->dbh();
  63     my $sth=$dbh->prepare("select bit,flag,flagdesc from userflags order by bit");
  64     $sth->execute;
  65     my @loop;
  66     while (my ($bit, $flag, $flagdesc) = $sth->fetchrow) {
  67         my $checked='';
  68         if ($accessflags->{$flag}) {
  69             $checked='checked';
  70         }
  71         my %row = ( bit => $bit,
  72                  flag => $flag,
  73                  checked => $checked,
  74                  flagdesc => $flagdesc );
  75         push @loop, \%row;
  76     }
  77
  78     $template->param(member => $member,
  79                         surname => $bor->{'surname'},
  80                         firstname => $bor->{'firstname'},
  81                         loop => \@loop);
  82
  83     output_html_with_http_headers $input, $cookie, $template->output;
  84
  85 }