greg/stasis-aries-wal
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added "interests" to survey.

Browse source
This commit is contained in:
Sears Russell 2008-03-05 20:21:06 +00:00
parent c5a75a9102
commit 8da9a5e8ad
2 changed files with 52 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/apps/referential/CMakeLists.txt
View file

@ -2,4 +2,4 @@ ADD_LIBRARY(referential algebra.c dml.c)
SET(COMMON_LIBRARIES referential ${COMMON_LIBRARIES})
IF(CHECK_LIBRARY)
CREATE_CHECK_OPT(toplevel ${CMAKE_CURRENT_SOURCE_DIR}/test-script.ref)
ENDIF(CHECK_LIBRARY)
ENDIF(CHECK_LIBRARY)

59
src/apps/referential/survey.cgi
View file

@ -7,10 +7,15 @@ use Referential;
sub printResponse {
my $t = shift;
print "<p>$$t[0]: ".($$t[1]?'Yes':'No')."</p>\n";
if(defined ($$t[2]) && $$t[2] =~ /\S/) {
print "<b>Comment:</b><pre>\n".$$t[2]."</pre>";
print "<p>$$t[0]: ".($$t[1]?'Yes':'No')."</p><p>Interests: \n";
my $int = $$t[2];
my @tok = split '~', $int;
print (join ", ", @tok);
print("</p>\n");
if(defined ($$t[3]) && $$t[3] =~ /\S/) {
print "<b>Comment:</b><pre>\n".$$t[3]."</pre>";
}
}
my $ref = new Referential("6667");
@ -22,22 +27,39 @@ if(param('name')) {
my $name = $ref->escape(param('name'));
my $vote = $ref->escape(param('vote'));
my $comments = $ref->escape(param('comments'));
my @names = $cgi->param;
my %interests;
my $interests;
my $first = 1;
foreach my $i (@names) {
if($i=~/^t_(.+)$/) {
$interests{$1}++;
if($first) {
$interests = $1;
$first = 0;
} else {
$interests .= "~$1";
}
}
}
print header;
print "\n\n<html><head><title>Survey repsonse completed</title></head></html>\n";
print "<body><h1>Thanks!</h1>\n";
my $tups = $ref->query("{s ($name,*,*) peeps}");
my $tups = $ref->query("{s ($name,*,*,*) peeps}");
if(defined $$tups[0][0]) {
print "<h2>Found and deleted old response:</h2>";
print "<h2>Deleted old response:</h2>";
printResponse($$tups[0]);
}
$ref->insert("peeps $name,$vote,$comments");
$ref->insert("peeps $name,$vote,$interests,$comments");
$tups = $ref->query("{s ($name,*,*) peeps}");
$tups = $ref->query("{s ($name,*,*,*) peeps}");
if(defined $$tups[0][0]) {
print "<h2>Recorded your response:</h2>";
print "<h2>Recorded response:</h2>";
printResponse($$tups[0]);
} else {
print "query failed!\n";
@ -67,6 +89,27 @@ if(param('name')) {
<form>
Name: <input type='text' name='name'/>
<br>
<p>Which topics are you interested in?</p>
<input type="checkbox" name="t_tpsReports">
TPS Reports
</input>
<br>
<input type="checkbox" name="t_efficiency">
Consultants
</input>
<br>
<input type="checkbox" name="t_family">
Family
</input>
<br>
<input type="checkbox" name="t_academic">
Academic
</input>
<br>
<input type="checkbox" name="t_balance">
Balance
</input>
<br>
<p>Will you attend?</p>
<input type="radio" name="vote" value="1">Yes</input>
<br>