|
Lines 76-82
my $findborrower = $input->param('findborrower');
Link Here
|
| 76 |
$findborrower = '' unless defined $findborrower; |
76 |
$findborrower = '' unless defined $findborrower; |
| 77 |
$findborrower =~ s|,| |g; |
77 |
$findborrower =~ s|,| |g; |
| 78 |
my $borrowernumber_hold = $input->param('borrowernumber') || ''; |
78 |
my $borrowernumber_hold = $input->param('borrowernumber') || ''; |
| 79 |
my $borrowerslist; |
|
|
| 80 |
my $messageborrower; |
79 |
my $messageborrower; |
| 81 |
my $warnings; |
80 |
my $warnings; |
| 82 |
my $messages; |
81 |
my $messages; |
|
Lines 113-119
if ($findborrower) {
Link Here
|
| 113 |
$borrowernumber_hold = $borrowers->[0]->{'borrowernumber'}; |
112 |
$borrowernumber_hold = $borrowers->[0]->{'borrowernumber'}; |
| 114 |
} |
113 |
} |
| 115 |
else { |
114 |
else { |
| 116 |
$borrowerslist = $borrowers; |
115 |
$template->param( borrower_list => sort_borrowerlist($borrowers)); |
| 117 |
} |
116 |
} |
| 118 |
} else { |
117 |
} else { |
| 119 |
$messageborrower = "'$findborrower'"; |
118 |
$messageborrower = "'$findborrower'"; |
|
Lines 179-216
if ($borrowernumber_hold && !$action) {
Link Here
|
| 179 |
|
178 |
|
| 180 |
$template->param( messageborrower => $messageborrower ); |
179 |
$template->param( messageborrower => $messageborrower ); |
| 181 |
|
180 |
|
| 182 |
my $CGIselectborrower; |
|
|
| 183 |
if ($borrowerslist) { |
| 184 |
my @values; |
| 185 |
my %labels; |
| 186 |
|
| 187 |
foreach my $borrower ( |
| 188 |
sort { |
| 189 |
uc($a->{surname} |
| 190 |
. $a->{firstname}) cmp uc($b->{surname} |
| 191 |
. $b->{firstname}) |
| 192 |
} @{$borrowerslist} |
| 193 |
) |
| 194 |
{ |
| 195 |
push @values, $borrower->{borrowernumber}; |
| 196 |
|
| 197 |
$labels{ $borrower->{borrowernumber} } = sprintf( |
| 198 |
'%s, %s ... (%s - %s) ... %s', |
| 199 |
$borrower->{surname} ||'', $borrower->{firstname} || '', |
| 200 |
$borrower->{cardnumber} || '', $borrower->{categorycode} || '', |
| 201 |
$borrower->{address} || '', |
| 202 |
); |
| 203 |
} |
| 204 |
|
| 205 |
$CGIselectborrower = CGI::scrolling_list( |
| 206 |
-name => 'borrowernumber', |
| 207 |
-values => \@values, |
| 208 |
-labels => \%labels, |
| 209 |
-size => 7, |
| 210 |
-multiple => 0, |
| 211 |
); |
| 212 |
} |
| 213 |
|
| 214 |
# FIXME launch another time GetMember perhaps until |
181 |
# FIXME launch another time GetMember perhaps until |
| 215 |
my $borrowerinfo = GetMember( borrowernumber => $borrowernumber_hold ); |
182 |
my $borrowerinfo = GetMember( borrowernumber => $borrowernumber_hold ); |
| 216 |
|
183 |
|
|
Lines 608-614
foreach my $biblionumber (@biblionumbers) {
Link Here
|
| 608 |
borrower_branchcode => $borrowerinfo->{'branchcode'}, |
575 |
borrower_branchcode => $borrowerinfo->{'branchcode'}, |
| 609 |
); |
576 |
); |
| 610 |
} |
577 |
} |
| 611 |
$template->param(CGIselectborrower => $CGIselectborrower) if defined $CGIselectborrower; |
|
|
| 612 |
|
578 |
|
| 613 |
$biblioloopiter{biblionumber} = $biblionumber; |
579 |
$biblioloopiter{biblionumber} = $biblionumber; |
| 614 |
$biblioloopiter{title} = $dat->{title}; |
580 |
$biblioloopiter{title} = $dat->{title}; |
|
Lines 640-642
$template->param(
Link Here
|
| 640 |
|
606 |
|
| 641 |
# printout the page |
607 |
# printout the page |
| 642 |
output_html_with_http_headers $input, $cookie, $template->output; |
608 |
output_html_with_http_headers $input, $cookie, $template->output; |
| 643 |
- |
609 |
|
|
|
610 |
sub sort_borrowerlist { |
| 611 |
my $borrowerslist = shift; |
| 612 |
my $ref = []; |
| 613 |
push @{$ref}, sort { |
| 614 |
uc( $a->{surname} . $a->{firstname} ) cmp |
| 615 |
uc( $b->{surname} . $b->{firstname} ) |
| 616 |
} @{$borrowerslist}; |
| 617 |
return $ref; |
| 618 |
} |