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)