update dispatch to accept survey data

dr-kd · Feb 21, 2010 · 07fa0a3 · 07fa0a3
1 parent 1b5cbeb
commit 07fa0a3
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/Survey-Perl/lib/Survey/Perl/Controller/Survey.pm b/Survey-Perl/lib/Survey/Perl/Controller/Survey.pm
@@ -23,5 +23,10 @@ sub get_root :Chained("survey_base") :PathPart("") :Args(0) {
               template => 'survey/index.tt');
 }
 
+sub finish_survey :Chained("survey_base") :PathPart("finish") :Args(0) {
+    my ($self, $c) = @_;
+    my $user = $c->session->{human};
+    $c->res->body($c->sessionid);
+}
 
 1;
diff --git a/Survey-Perl/root/survey/index.tt b/Survey-Perl/root/survey/index.tt
@@ -89,7 +89,7 @@ $(document).ready(function(){
 
 <div class="formContainer">
 
-<form name="" action = "finish" method="POST">
+<form name="" action = "[% c.uri_for('finish') %]" method="POST">
 <ul class="form">
 [% FOREACH s IN sections %]