\n";
if (!$in{'new'} && $feature->{'type'}) {
print " $text{'feature_old'} \n";
print "$feature->{'text'} \n";
}
if ($feature->{'type'} == 0) {
# Unsupported text line
print " $text{'feature_text'} \n";
printf " \n",
&html_escape($feature->{'text'});
}
elsif ($feature->{'type'} == 1) {
# A FEATURE() definition
print " $text{'feature_feat'} \n";
print "\n";
foreach $f (&list_feature_types()) {
printf "%s\n",
$f->[0], $feature->{'name'} eq $f->[0] ? 'selected' : '',
$f->[1];
}
print " \n";
print " $text{'feature_values'} \n";
local @v = @{$feature->{'values'}};
@v = ( "" ) if (!@v);
for($i=0; $i<=@v; $i++) {
print " \n";
}
print " \n";
}
elsif ($feature->{'type'} == 2 || $feature->{'type'} == 3) {
# A define() or undefine()
print " $text{'feature_def'} \n";
print "\n";
foreach $d (&list_define_types()) {
printf "%s\n",
$d->[0], $d->[0] eq $feature->{'name'} ? "selected" : "",
$d->[1];
$found++ if ($d->[0] eq $feature->{'name'});
}
print " {'name'} selected>$feature->{'name'}\n"
if (!$found && !$in{'new'});
print " \n";
print " $text{'feature_defval'} \n";
print "\n";
printf " %s\n",
$feature->{'type'} == 2 ? "checked" : "", $text{'feature_defmode1'};
printf " \n",
$feature->{'value'};
printf " %s\n",
$feature->{'type'} == 3 ? "checked" : "", $text{'feature_defmode0'};
print " \n";
}
elsif ($feature->{'type'} == 4) {
# A MAILER() definition
print " $text{'feature_mailer'} \n";
print "\n";
foreach $m (&list_mailer_types()) {
printf "%s\n",
$m->[0], $feature->{'mailer'} eq $m->[0] ? 'selected' : '',
$m->[1];
}
print " \n";
}
elsif ($feature->{'type'} == 5) {
# An OSTYPE() definition
print " $text{'feature_ostype'} \n";
print "\n";
foreach $m (&list_ostype_types()) {
printf "%s\n",
$m->[0], $feature->{'ostype'} eq $m->[0] ? 'selected' : '',
$m->[1];
}
print " \n";
}
print "