Permalink
Browse files

tidied up submission, added preliminary survey submission stuff

  • Loading branch information...
1 parent bac55ec commit 72ffef7dce808aafbf29edf4733e83b6c82aaf1f Devin Austin committed Mar 17, 2010
@@ -0,0 +1,16 @@
+package Survey::Perl::Auth::Schema;
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class::Schema';
+
+__PACKAGE__->load_classes;
+
+
+# Created by DBIx::Class::Schema::Loader v0.04006 @ 2009-09-11 17:06:47
+# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:nbZ7hOUzma87ik9kPCetYw
+
+
+# You can replace this text with custom content, and it will be preserved on regeneration
+1;
@@ -24,4 +24,9 @@ sub get_root :Chained("survey_base") :PathPart("") :Args(0) {
}
+sub finish_survey : Chained("survey_base") PathPart("finish") Args(0) {
+ my ($self, $c) = @_;
+
+}
+
1;
@@ -0,0 +1,33 @@
+package Survey::Perl::Model::Answers;
+
+use strict;
+use base 'Catalyst::Model::DBIC::Schema';
+
+__PACKAGE__->config(
+ schema_class => 'Survey::Perl::Answers::Schema',
+
+);
+
+=head1 NAME
+
+Survey::Perl::Model::Auth - Catalyst DBIC Schema Model
+=head1 SYNOPSIS
+
+See L<Survey::Perl>
+
+=head1 DESCRIPTION
+
+L<Catalyst::Model::DBIC::Schema> Model using schema L<Survey::Perl::Auth::Schema>
+
+=head1 AUTHOR
+
+Kieren Diment
+
+=head1 LICENSE
+
+This library is free software, you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+1;
@@ -89,7 +89,7 @@ $(document).ready(function(){
<div class="formContainer">
-<form name="" action = "finish" method="POST">
+<form name="" action = "[% c.uri_for_action('/survey/finish') %]" method="POST">
<ul class="form">
[% FOREACH s IN sections %]

0 comments on commit 72ffef7

Please sign in to comment.