New script for setting user flags. Link from member modification page

(moremember.pl).

C4/Circulation/Circ2.pm

@@ -110,13 +110,22 @@ sub getpatroninformation {
     }
     $sth->execute;
     my $borrower=$sth->fetchrow_hashref;
-    my $flags=patronflags($env, $borrower, $dbh);
+    my $accessflagsint=$borrower->{flags};
+    my $accessflagshash;
     $sth->finish;
+    my $flags=patronflags($env, $borrower, $dbh);
+    $sth=$dbh->prepare("select bit,flag from userflags");
+    $sth->execute;
+    while (my ($bit, $flag) = $sth->fetchrow) {
+	if ($accessflagsint & 2**$bit) {
+	    $accessflagshash->{$flag}=1;
+	}
+    }
     $dbh->disconnect;
     print O "$borrower->{'surname'} <---\n";
     close O;
     $borrower->{'flags'}=$flags;
-    return($borrower, $flags);
+    return($borrower, $flags, $accessflagshash);
 }
 
 

member-flags.pl

@@ -0,0 +1,80 @@
+#!/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();
+}

moremember.pl

@@ -131,6 +131,7 @@ $data->{'borrowernotes'}<!--</a>-->
 <p>
 <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>
 </TR>