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::Database;
  14 use C4::Circulation::Circ2;
  15 #use C4::Acquisitions;
  16
  17 my $input = new CGI;
  18
  19 my $flagsrequired;
  20 $flagsrequired->{borrowers}=1;
  21 $flagsrequired->{permissions}=1;
  22 my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
  23
  24 my $member=$input->param('member');
  25 my %env;
  26 $env{'nottodayissues'}=1;
  27 my %member2;
  28 $member2{'borrowernumber'}=$member;
  29 my $issues=currentissues(\%env,\%member2);
  30 my $i=0;
  31 foreach (sort keys %$issues) {
  32     $i++;
  33 }
  34 if ($input->param('newflags')) {
  35     my $dbh=C4Connect();
  36     my $flags=0;
  37     foreach ($input->param) {
  38         if (/flag-(\d+)/) {
  39             my $flag=$1;
  40             $flags=$flags+2**$flag;
  41         }
  42     }
  43     my $sth=$dbh->prepare("update borrowers set flags=? where borrowernumber=?");
  44     $sth->execute($flags, $member);
  45     print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=$member");
  46 } else {
  47     my ($bor,$flags,$accessflags)=getpatroninformation(\%env, $member,'');
  48
  49     my $dbh=C4Connect();
  50     my $sth=$dbh->prepare("select bit,flag,flagdesc from userflags order by bit");
  51     $sth->execute;
  52     my $flagtext='';
  53     while (my ($bit, $flag, $flagdesc) = $sth->fetchrow) {
  54         my $checked='';
  55         if ($accessflags->{$flag}) {
  56             $checked='checked';
  57         }
  58         $flagtext.="<tr><td><input type=checkbox name=flag-$bit $checked></td><td>$flag</td><td>$flagdesc</td></tr>\n";
  59     }
  60     print $input->header(-cookie => $cookie);
  61     print startpage();
  62     print startmenu('member');
  63     print qq|
  64     <h2>$bor->{'surname'}, $bor->{'firstname'}</h2>
  65     <form method=post>
  66     <input type=hidden name=member value=$member>
  67     <input type=hidden name=newflags value=1>
  68     <table border=1>
  69     <tr><th background=/koha/images/background-mem.gif colspan=3>FLAGS</th></tr>
  70     $flagtext
  71     </table>
  72
  73     <p>
  74     <input type=submit value="Set Flags">
  75     </form>
  76     |;
  77
  78     print endmenu('member');
  79     print endpage();
  80 }