% unless ( $opt{'multiple'} || $opt{'disable_empty'} ) { Select serviceid % } % foreach my $serviceid ( keys %serviceid ) { ><% $serviceid %> % } <%init> my %opt = @_; my $value = $opt{'curr_value'} || $opt{'value'}; #is this going to get too slow or will the index make it okay? my $sth = dbh->prepare("SELECT DISTINCT(serviceid) FROM srvexport") or die dbh->errstr; $sth->execute or die $sth->errstr; my %serviceid = (); while ( my $row = $sth->fetchrow_arrayref ) { my $serviceid = $row->[0]; $serviceid =~ s/_(IN|OUT)$//; $serviceid{$serviceid}=1; }