gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix for 1654 

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Chris Cormack 2007-12-26 19:32:37 -06:00 committed by Joshua Ferraro
parent 6251e32e6e
commit 68bf17afc4
2 changed files with 22 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tmpl
View File

@ -719,7 +719,11 @@ patron <!-- TMPL_VAR NAME="surname" --> <!-- TMPL_VAR name="firstname" --><!-- /
<legend>Patron Account Flags</legend>
<ol class="radio">
<!-- TMPL_LOOP NAME="flagloop" -->
<li><label class="radio" for="yes<!-- TMPL_VAR NAME="name" -->"><!-- TMPL_VAR NAME="html" -->: </label>
<li><label class="radio" for="yes<!-- TMPL_VAR name="name" -->">
<!-- TMPL_IF EXPR="key eq 'gonenoaddress'" -->Gone no Address:<!-- /TMPL_IF -->
<!-- TMPL_IF EXPR="key eq 'debarred'" -->Debarred:<!-- /TMPL_IF -->
<!-- TMPL_IF EXPR="key eq 'lost'" -->Lost Card:<!-- /TMPL_IF -->
</label>
<label for="yes<!-- TMPL_VAR NAME="name" -->">Yes </label>
<!-- TMPL_IF NAME="yes" -->

33
members/memberentry.pl
View File

@ -364,26 +364,27 @@ while (@relationships) {
}
push(@relshipdata, \%row);
}
my %flags = ( 'gonenoaddress' => ['gonenoaddress', 'Gone no address '],
'lost' => ['lost', 'Lost'],
'debarred' => ['debarred', 'Debarred']);
my %flags = ( 'gonenoaddress' => ['gonenoaddress' ],
'lost' => ['lost'],
'debarred' => ['debarred']);
my @flagdata;
foreach (keys(%flags)) {
my $key = $_;
my %row = ('key' => $key,
'name' => $flags{$key}[0],
'html' => $flags{$key}[1]);
if ($data{$key}) {
$row{'yes'}=' checked';
$row{'no'}='';
} else {
$row{'yes'}='';
$row{'no'}=' checked';
my $key = $_;
my %row = ('key' => $key,
'name' => $flags{$key}[0]);
if ($data{$key}) {
$row{'yes'}=' checked';
$row{'no'}='';
}
else {
$row{'yes'}='';
$row{'no'}=' checked';
}
push @flagdata,\%row;
}
push(@flagdata, \%row);
}
#get Branches
my @branches;