print "<font size="1" face="Verdana">Bewertung:</font></td><td align="center"><select name="rating" size="1" style="font-family: Verdana; font-size: 8pt">";
my @opinions = ("sehr schlecht", "schlecht", "durchschnittlich", "gut", "sehr gut", "extrem gut");
for ($i = 0; $i <= $maxRating; $i++){
print "<option value="$i">$opinions[$i]</option>";
}
print "</select></td></tr>";
Mal abgesehen von dem nicht mehr erwünschten Font-tag im HTML, benutzt du nicht das CGI Modul?
use CGI;
my @opinions = ("sehr schlecht", "schlecht", "durchschnittlich", "gut", "sehr gut", "extrem gut");
print CGI::popup_menu(
-values => \@opinions,
-default => 'gut'
);
Struppi.
--
Javascript ist toll (Perl auch!)
Javascript ist toll (Perl auch!)