From 2eb8039732d287b05e435899bda3a7281902947b Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Tue, 28 Apr 2009 22:47:31 +0200 Subject: [PATCH] mostly reindenting --- C4/Input.pm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/C4/Input.pm b/C4/Input.pm index 8dd13f10e5..e45ba4f824 100644 --- a/C4/Input.pm +++ b/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) -- 2.39.5