Difference between revisions of "Team:Exeter/Questionnaire"
Line 28: | Line 28: | ||
For each of the scenarios below, please rate from 1-5 (most likely to leas likely), how likely you would be to undergo the type of treatment mentioned above. | For each of the scenarios below, please rate from 1-5 (most likely to leas likely), how likely you would be to undergo the type of treatment mentioned above. | ||
− | <FORM ACTION="https://2015.igem.org/Team:Exeter/formfile.pl" METHOD=" | + | <FORM ACTION="https://2015.igem.org/Team:Exeter/formfile.pl" METHOD="post" ENCTYPE="multipart/form-data"> |
<ol> | <ol> | ||
Line 61: | Line 61: | ||
</b> | </b> | ||
</br> | </br> | ||
+ | |||
Line 70: | Line 71: | ||
</br> | </br> | ||
<textarea name="Review"; id="Review"; style="height:50pt; width:100pt"; text-align="top";></textarea> | <textarea name="Review"; id="Review"; style="height:50pt; width:100pt"; text-align="top";></textarea> | ||
+ | |||
<input type="submit"; name="Submit"; value="Send Review"> | <input type="submit"; name="Submit"; value="Send Review"> | ||
Line 76: | Line 78: | ||
</body> | </body> | ||
</html> | </html> | ||
+ | <%perl> | ||
+ | #!/usr/local/bin/perl | ||
+ | |||
+ | use strict; | ||
+ | use CGI qw/:standard/; | ||
+ | use CGI::Carp qw(fatalsToBrowser); | ||
+ | |||
+ | #Parse form data | ||
+ | my $LikelyA = param("LikelyA"); | ||
+ | my $LikelyB = param("LikelyB"); | ||
+ | |||
+ | |||
+ | open(FILE, ">>2015.igem.org/Team:Exeter/file.txt") || die "can't write to 2015.igem.org/Team:Exeter/file.txt $!"; | ||
+ | |||
+ | print FILE "Q1:$LikelyA\n"; | ||
+ | print FILE "Q2:$LikelyB\n"; | ||
+ | print FILE "\n"; | ||
+ | |||
+ | close(FILE); | ||
+ | |||
+ | print header(), | ||
+ | start_html(-title=>'Review Submitted'), | ||
+ | 'Thank you for submitting your answers!', | ||
+ | end_html(); | ||
+ | </%perl> |
Revision as of 08:19, 12 June 2015
Preliminary Idea Questionnaire
Questions
For each of the scenarios below, please rate from 1-5 (most likely to leas likely), how likely you would be to undergo the type of treatment mentioned above.
- !/usr/local/bin/perl
use strict; use CGI qw/:standard/; use CGI::Carp qw(fatalsToBrowser);
- Parse form data
my $LikelyA = param("LikelyA"); my $LikelyB = param("LikelyB");
open(FILE, ">>2015.igem.org/Team:Exeter/file.txt") || die "can't write to 2015.igem.org/Team:Exeter/file.txt $!";
print FILE "Q1:$LikelyA\n"; print FILE "Q2:$LikelyB\n"; print FILE "\n";
close(FILE);
print header(), start_html(-title=>'Review Submitted'), 'Thank you for submitting your answers!', end_html(); </%perl>