mostly reindenting
This commit is contained in:
parent
6eb87632b6
commit
2eb8039732
1 changed files with 10 additions and 10 deletions
20
C4/Input.pm
20
C4/Input.pm
|
@ -128,22 +128,22 @@ sub buildCGIsort {
|
|||
if ($sth->rows>0){
|
||||
my @values;
|
||||
my %labels;
|
||||
|
||||
|
||||
for (my $i =0;$i<$sth->rows;$i++){
|
||||
my $results = $sth->fetchrow_hashref;
|
||||
push @values, $results->{authorised_value};
|
||||
$labels{$results->{authorised_value}}=$results->{lib};
|
||||
push @values, $results->{authorised_value};
|
||||
$labels{$results->{authorised_value}}=$results->{lib};
|
||||
}
|
||||
unshift(@values,"");
|
||||
$CGISort= CGI::scrolling_list(
|
||||
-name => $input_name,
|
||||
-values => \@values,
|
||||
-labels => \%labels,
|
||||
-name => $input_name,
|
||||
-id => $input_name,
|
||||
-values => \@values,
|
||||
-labels => \%labels,
|
||||
-default=> $data,
|
||||
-size => 1,
|
||||
-multiple => 0);
|
||||
-size => 1,
|
||||
-multiple => 0);
|
||||
}
|
||||
$sth->finish;
|
||||
$sth->finish;
|
||||
return $CGISort;
|
||||
}
|
||||
END { } # module clean-up code here (global destructor)
|
||||
|
|
Loading…
Reference in a new issue