604 |
|
|
605 |
my @dropdown_data; |
my @dropdown_data; |
606 |
|
|
607 |
|
my $default_value = x($attref->{default_value}) || 'null'; |
608 |
|
my $default_text = x($attref->{default_text}) || '-'; |
609 |
|
|
610 |
$$ncref = sub { |
$$ncref = sub { |
611 |
my ($xp, $text) = @_; |
my ($xp, $text) = @_; |
612 |
|
|
|
my $default_value = x($attref->{default_value}) || 'null'; |
|
|
my $default_text = x($attref->{default_text}) || '-'; |
|
613 |
if (defined $text) { |
if (defined $text) { |
614 |
chomp $text; |
chomp $text; |
615 |
$text=~s/^\s*//g; |
$text=~s/^\s*//g; |
621 |
my $id=1; |
my $id=1; |
622 |
my $p=new_pit(); |
my $p=new_pit(); |
623 |
$body.="<select name=$p >\n"; |
$body.="<select name=$p >\n"; |
624 |
$body.="<option value=\"$default_value\">$default_text<option>\n"; |
$body.="<option value=\"$default_value\">$default_text</option>\n"; |
625 |
foreach $opt (@dropdown_data) { |
foreach $opt (@dropdown_data) { |
626 |
if (defined($opt) && $opt ne "") { |
if (defined($opt) && $opt ne "") { |
627 |
$body.="<option value=$id>$opt</option>\n"; |
$body.="<option value=$id>$opt</option>\n"; |
763 |
} |
} |
764 |
} |
} |
765 |
} |
} |
766 |
|
|
767 |
|
sub html { |
768 |
|
package main; |
769 |
|
|
770 |
|
my ($xp, $el, $attref, $ncref) = @_; |
771 |
|
|
772 |
|
$body.="<p>"; |
773 |
|
|
774 |
|
$$ncref = sub { |
775 |
|
my ($xp, $text) = @_; |
776 |
|
|
777 |
|
if (defined $text) { |
778 |
|
$body.=x($text); |
779 |
|
} else { |
780 |
|
$body.="</p>"; |
781 |
|
} |
782 |
|
} |
783 |
|
} |
784 |
|
|
785 |
print "\n\nTo create database for poll $poll use:\n\n"; |
print "\n\nTo create database for poll $poll use:\n\n"; |
786 |
print "\$ psql template1 < $poll/$poll.sql\n\n"; |
print "\$ psql template1 < $poll/$poll.sql\n\n"; |