System error

error:  Can't coerce array into hash at /home/patca/www/htdocs/survey_data/dhandler.mh line 40.
context: 
... 
36:  my $db = $r->pnotes->{db};
37: 
38:  my $survey = $db->get_surveys( survey_id => $survey_id );
39: 
40:  my $columns = $db->get_data_columns( $survey->{group_id} );
41:  my $id_col = { column_name => 'id', title => 'id' };
42:  unshift(@$columns, $id_col);
43: 
44:  my $data = $db->get_survey_data($survey_id);
... 
code stack:  /home/patca/www/htdocs/survey_data/dhandler.mh:40
/usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/Component.pm:135
/home/patca/www/templates/autohandler.mh:26
/usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/Component.pm:135
/home/patca/www/templates/syshandler.mh:1
/usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/Component.pm:135
raw error






























Can't coerce array into hash at /home/patca/www/htdocs/survey_data/dhandler.mh line 40.


Trace begun at /usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Can\'t coerce array into hash at /home/patca/www/htdocs/survey_data/dhandler.mh line 40.^J') called at /home/patca/www/htdocs/survey_data/dhandler.mh line 40
Z5::Patca::Mason::__ANON__ at /usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0xa65365c)') called at /usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 1247
eval {...} at /usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 1246
HTML::Mason::Request::comp(undef, undef) called at /usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 916
HTML::Mason::Request::call_next('HTML::Mason::Request::ApacheHandler=HASH(0xc30cd9c)') called at /home/patca/www/templates/autohandler.mh line 26
Z5::Patca::Mason::__ANON__ at /usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0xa183c40)') called at /usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 1252
eval {...} at /usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 1246
HTML::Mason::Request::comp(undef, undef) called at /usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 916
HTML::Mason::Request::call_next('HTML::Mason::Request::ApacheHandler=HASH(0xc30cd9c)') called at /home/patca/www/templates/syshandler.mh line 1
Z5::Patca::Mason::__ANON__ at /usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0xa17d7ac)') called at /usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 1247
eval {...} at /usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 1246
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 461
eval {...} at /usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 461
eval {...} at /usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 413
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0xc30cd9c)') called at /usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/ApacheHandler.pm line 167
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0xc30cd9c)') called at /usr/local/lib/perl5/site_perl/5.8.5/HTML/Mason/ApacheHandler.pm line 817
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0xa175338)', 'Apache=SCALAR(0xbd4d65c)') called at (eval 50) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache=SCALAR(0xbd4d65c)') called at /dev/null line 0
eval {...} at /dev/null line 0