% }
% foreach my $serviceid ( keys %serviceid ) {
- <OPTION VALUE="<%$serviceid%>"><% $serviceid %></OPTION>
+ <OPTION VALUE="<%$serviceid%>"
+ <% $serviceid eq $value ? 'SELECTED' : '' %>
+ ><% $serviceid %></OPTION>
% }
</SELECT>
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;