[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha member-flags.pl,NONE,1.1.2.1 moremember.pl,1.11.2.3
From: |
Steve Tonnesen |
Subject: |
[Koha-cvs] CVS: koha member-flags.pl,NONE,1.1.2.1 moremember.pl,1.11.2.3,1.11.2.4 |
Date: |
Fri, 26 Jul 2002 22:30:14 -0700 |
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv24481
Modified Files:
Tag: rel-1-2
moremember.pl
Added Files:
Tag: rel-1-2
member-flags.pl
Log Message:
New script for setting user flags. Link from member modification page
(moremember.pl).
--- NEW FILE ---
#!/usr/bin/perl
# script to edit a member's flags
# Written by Steve Tonnesen
# July 26, 2002 (my birthday!)
use strict;
use C4::Search;
use CGI;
use C4::Output;
use C4::Auth;
use C4::Database;
use C4::Circulation::Circ2;
#use C4::Acquisitions;
my $input = new CGI;
my $flagsrequired;
$flagsrequired->{borrowers}=1;
$flagsrequired->{permissions}=1;
my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
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=C4Connect();
my $flags=0;
foreach ($input->param) {
if (/flag-(\d+)/) {
my $flag=$1;
$flags=$flags+2**$flag;
}
}
my $sth=$dbh->prepare("update borrowers set flags=? where
borrowernumber=?");
$sth->execute($flags, $member);
print $input->redirect("/members/");
} else {
my ($bor,$flags,$accessflags)=getpatroninformation(\%env, $member,'');
my $dbh=C4Connect();
my $sth=$dbh->prepare("select bit,flag,flagdesc from userflags order by
bit");
$sth->execute;
my $flagtext='';
while (my ($bit, $flag, $flagdesc) = $sth->fetchrow) {
my $checked='';
if ($accessflags->{$flag}) {
$checked='checked';
}
$flagtext.="<tr><td><input type=checkbox name=flag-$bit
$checked></td><td>$flag</td><td>$flagdesc</td></tr>\n";
}
print $input->header(-cookie => $cookie);
print startpage();
print startmenu('member');
print qq|
<h2>$bor->{'surname'}, $bor->{'firstname'}</h2>
<form method=post>
<input type=hidden name=member value=$member>
<input type=hidden name=newflags value=1>
<table border=1>
<tr><th background=/koha/images/background-mem.gif colspan=3>FLAGS</th></tr>
$flagtext
</table>
<p>
<input type=submit value="Set Password">
</form>
|;
print endmenu('member');
print endpage();
}
Index: moremember.pl
===================================================================
RCS file: /cvsroot/koha/koha/moremember.pl,v
retrieving revision 1.11.2.3
retrieving revision 1.11.2.4
diff -C2 -r1.11.2.3 -r1.11.2.4
*** moremember.pl 11 Jul 2002 18:05:28 -0000 1.11.2.3
--- moremember.pl 27 Jul 2002 05:30:12 -0000 1.11.2.4
***************
*** 132,135 ****
--- 132,136 ----
<INPUT TYPE="image" name="password" VALUE="password" height=42 WIDTH=154
BORDER=0 src="/images/password-mem.gif">
</p>
+ <a href=member-flags.pl?member=$bornum>Modify User Flags</a>
</TD>
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha member-flags.pl,NONE,1.1.2.1 moremember.pl,1.11.2.3,1.11.2.4,
Steve Tonnesen <=