53 |
# this is usename in database |
# this is usename in database |
54 |
my $db_user="dpavlin"; |
my $db_user="dpavlin"; |
55 |
|
|
56 |
|
# This option allows users to fill poll without using invitation URL. |
57 |
|
# That also means it's unpossible for them to return to exiting poll |
58 |
|
# because they don't have thair own unique ID. Howver, it enables simple |
59 |
|
# polls to be conducted by just publishing URL to them. |
60 |
|
my $without_invitation=0; |
61 |
|
|
62 |
|
# This will remove numbers before answers. That enables you to have |
63 |
|
# answers written like: |
64 |
|
# 1.1 red |
65 |
|
# 1.2 black |
66 |
|
# and users will see just "red" and "black" |
67 |
|
my $remove_nrs_in_answers=0; |
68 |
|
|
69 |
#------------------------------------------------------------------ |
#------------------------------------------------------------------ |
70 |
|
|
71 |
sub suck_file { |
sub suck_file { |
225 |
$common_php =~ s/##PREFIX##/$prefix/g; |
$common_php =~ s/##PREFIX##/$prefix/g; |
226 |
my $members_db = $prefix."members"; |
my $members_db = $prefix."members"; |
227 |
$common_php =~ s/##MEMBERS_DB##/$members_db/g; |
$common_php =~ s/##MEMBERS_DB##/$members_db/g; |
228 |
|
$common_php =~ s/##WITHOUT_INVITATION##/$without_invitation/g; |
229 |
|
|
230 |
print PHP $common_php; |
print PHP $common_php; |
231 |
close(PHP); |
close(PHP); |
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; |
615 |
$text=~s/^[\d\.\s]+//g; |
$text=~s/^[\d\.\s]+//g if ($remove_nrs_in_answers); |
616 |
$text=~s/\s*$//g; |
$text=~s/\s*$//g; |
617 |
push @dropdown_data,x($text) if ($text ne ""); |
push @dropdown_data,x($text) if ($text ne ""); |
618 |
} else { |
} else { |
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"; |
680 |
if (defined $text) { |
if (defined $text) { |
681 |
chomp $text; |
chomp $text; |
682 |
$text=~s/^\s*//g; |
$text=~s/^\s*//g; |
683 |
$text=~s/^[\d\.\s]+//g; |
$text=~s/^[\d\.\s]+//g if ($remove_nrs_in_answers); |
684 |
$text=~s/\s*$//g; |
$text=~s/\s*$//g; |
685 |
push @radiobuttons_data,x($text) if ($text ne ""); |
push @radiobuttons_data,x($text) if ($text ne ""); |
686 |
} else { |
} else { |
725 |
if (defined $text) { |
if (defined $text) { |
726 |
chomp $text; |
chomp $text; |
727 |
$text=~s/^\s*//g; |
$text=~s/^\s*//g; |
728 |
$text=~s/^[\d\.\s]+//g; |
$text=~s/^[\d\.\s]+//g if ($remove_nrs_in_answers); |
729 |
$text=~s/\s*$//g; |
$text=~s/\s*$//g; |
730 |
push @checkboxes_data,x($text) if ($text ne ""); |
push @checkboxes_data,x($text) if ($text ne ""); |
731 |
} else { |
} else { |
778 |
my ($xp, $text) = @_; |
my ($xp, $text) = @_; |
779 |
$db_user=x($attref->{db_user}); |
$db_user=x($attref->{db_user}); |
780 |
$prefix=x($attref->{prefix}); |
$prefix=x($attref->{prefix}); |
781 |
|
$without_invitation=x($attref->{without_invitation}) && |
782 |
|
print "Pool is without need for unique ID (and invitation URLs).\n"; |
783 |
|
$remove_nrs_in_answers=x($attref->{$remove_nrs_in_answers}) && |
784 |
|
print "Numbers before answers will be removed.\n"; |
785 |
} |
} |
786 |
} |
} |
787 |
|
|