607 |
$$ncref = sub { |
$$ncref = sub { |
608 |
my ($xp, $text) = @_; |
my ($xp, $text) = @_; |
609 |
|
|
610 |
|
my $default_value = x($attref->{default_value}) || 'null'; |
611 |
|
my $default_text = x($attref->{default_text}) || '-'; |
612 |
if (defined $text) { |
if (defined $text) { |
613 |
chomp $text; |
chomp $text; |
614 |
$text=~s/^\s*//g; |
$text=~s/^\s*//g; |
620 |
my $id=1; |
my $id=1; |
621 |
my $p=new_pit(); |
my $p=new_pit(); |
622 |
$body.="<select name=$p >\n"; |
$body.="<select name=$p >\n"; |
623 |
$body.="<option value=null>-</option>\n"; |
$body.="<option value=\"$default_value\">$default_text<option>\n"; |
624 |
foreach $opt (@dropdown_data) { |
foreach $opt (@dropdown_data) { |
625 |
if (defined($opt) && $opt ne "") { |
if (defined($opt) && $opt ne "") { |
626 |
$body.="<option value=$id>$opt</option>\n"; |
$body.="<option value=$id>$opt</option>\n"; |