[Koha-cvs] CVS: koha member-flags.pl,NONE,1.1.2.1 moremember.pl,1.11.2.3,1.11.2.4

[Steve Tonnesen]

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>