-my $CGIselectborrower;
-if ($borrowerslist) {
- my @values;
- my %labels;
-
- foreach my $borrower (
- sort {
- uc($a->{surname}
- . $a->{firstname}) cmp uc($b->{surname}
- . $b->{firstname})
- } @{$borrowerslist}
- )
- {
- push @values, $borrower->{borrowernumber};
-
- $labels{ $borrower->{borrowernumber} } = sprintf(
- '%s, %s ... (%s - %s) ... %s',
- $borrower->{surname} ||'', $borrower->{firstname} || '',
- $borrower->{cardnumber} || '', $borrower->{categorycode} || '',
- $borrower->{address} || '',
- );
- }
-
- $CGIselectborrower = CGI::scrolling_list(
- -name => 'borrowernumber',
- -values => \@values,
- -labels => \%labels,
- -size => 7,
- -multiple => 0,
- );
-}
-