3 # script to edit a member's flags
4 # Written by Steve Tonnesen
5 # July 26, 2002 (my birthday!)
14 use C4::Circulation::Circ2;
15 #use C4::Acquisitions;
20 $flagsrequired->{borrowers}=1;
21 $flagsrequired->{permissions}=1;
22 my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
24 my $member=$input->param('member');
26 $env{'nottodayissues'}=1;
28 $member2{'borrowernumber'}=$member;
29 my $issues=currentissues(\%env,\%member2);
31 foreach (sort keys %$issues) {
34 if ($input->param('newflags')) {
35 my $dbh=C4::Context->dbh();
37 foreach ($input->param) {
40 $flags=$flags+2**$flag;
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");
47 my ($bor,$flags,$accessflags)=getpatroninformation(\%env, $member,'');
49 my $dbh=C4::Context->dbh();
50 my $sth=$dbh->prepare("select bit,flag,flagdesc from userflags order by bit");
53 while (my ($bit, $flag, $flagdesc) = $sth->fetchrow) {
55 if ($accessflags->{$flag}) {
58 $flagtext.="<tr><td><input type=checkbox name=flag-$bit $checked></td><td>$flag</td><td>$flagdesc</td></tr>\n";
60 print $input->header(-cookie => $cookie);
62 print startmenu('member');
64 <h2>$bor->{'surname'}, $bor->{'firstname'}</h2>
66 <input type=hidden name=member value=$member>
67 <input type=hidden name=newflags value=1>
69 <tr><th background=/koha/images/background-mem.gif colspan=3>FLAGS</th></tr>
74 <input type=submit value="Set Flags">
78 print endmenu('member');