Permalink
Browse files

fixed perl editor fuckery

  • Loading branch information...
1 parent 9e0656b commit d3ecd5de615b80a8bd6086c81ea3e77dc4c45480 Devin Austin committed Apr 27, 2010
View
Binary file not shown.
@@ -545,6 +545,21 @@ __PACKAGE__->add_columns(
is_nullable => "1",
size => 255
},
+ "perl_editors",
+ {
+ data_type => "varchar",
+ default_value => "undef",
+ is_nullable => 1,
+ size => 255
+ },
+ "perl_editors_secondary",
+ {
+ data_type => "varchar",
+ default_value => "undef",
+ is_nullable => 1,
+ size => 255
+ },
+
);
__PACKAGE__->set_primary_key("surveyid");
@@ -33,13 +33,14 @@ sub finish_survey : Chained("survey_base") PathPart("finish") Args(0) {
$c->log->debug( "Params: " . Dumper $answers);
delete $answers->{'submit'};
my @multis;
- $c->log->debug( "Answers: " . Dumper @{ $answers->{'field'} } );
- push @multis, { industries => $_ } for @{ $answers->{'industries'} };
- push @multis, { perl_versions => $_ } for @{ $answers->{'perl_versions'} };
- push @multis, { os_dev => $_ } for @{ $answers->{'os_dev'} };
- push @multis, { os_deployment => $_ } for @{ $answers->{'os_deployment'} };
- push @multis, { perl_editors => $_ } for @{ $answers->{'perl_editors'} };
- push @multis, { perl_editors_secondary => $_ } for @{ $answers->{'perl_editors_secondary'} };
+ $c->log->debug( "Industries: " . Dumper $answers->{'industries'} );
+ push @multis, { industries => $_ } for [ $answers->{'industries'} ];
+
+ push @multis, { perl_versions => $_ } for [ $answers->{'perl_versions'} ];
+ push @multis, { os_dev => $_ } for [ $answers->{'os_dev'} ];
+ push @multis, { os_deployment => $_ } for [ $answers->{'os_deployment'} ];
+ push @multis, { perl_editors => $_ } for [ $answers->{'perl_editors'} ];
+ push @multis, { perl_editors_secondary => $_ } for [ $answers->{'perl_editors_secondary'} ];
delete $answers->{$_}
for qw/ industries perl_versions os_dev field os_deployment perl_editors perl_editors_secondary/;
$c->log->debug( "multis: " . Dumper @multis );
Oops, something went wrong.

0 comments on commit d3ecd5d

Please sign in to comment.