System error

error:  Can't call method "id" on an undefined value at /var/www/city/comps/www/programs/index.html line 17.
context: 
... 
13:  my $galery;
14:  my @pics;
15:  if($s){
16:  $s = $keeper->get_section_by_id($s,status=>1);
17:  $issue = $m->scomp('issue.msn',s=>$s->id);
18:  $issue = "<TABLE height=350px width=100%><TR><TD align=center>Архив программ отсутствует</TD></TR></TABLE>" unless $issue;
19:  $issue = $m->scomp('/www/block.msn', head=>'Архив программ', content=>$issue);
20:  my ($galery_section) = $keeper->get_sections(s=>$s->id,order=>['sorder','direct'],limit=>1);
21:  if($galery_section){
... 
code stack:  /var/www/city/comps/www/programs/index.html:17
/var/www/city/comps/www/autohandler:1
raw error






























Can't call method "id" on an undefined value at /var/www/city/comps/www/programs/index.html line 17.


Trace begun at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Can\'t call method "id" on an undefined value at /var/www/city/comps/www/programs/index.html line 17.^J') called at /var/www/city/comps/www/programs/index.html line 17
HTML::Mason::Commands::__ANON__('s', 27586) called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x7855730)', 's', 27586) called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 1284
eval {...} at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 1274
HTML::Mason::Request::comp(undef, undef, undef, 's', 27586) called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 943
HTML::Mason::Request::call_next('HTML::Mason::Request::ApacheHandler=HASH(0x742bcd0)') called at /var/www/city/comps/www/autohandler line 1
HTML::Mason::Commands::__ANON__('s', 27586) called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x785b560)', 's', 27586) called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 1279
eval {...} at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 1274
HTML::Mason::Request::comp(undef, undef, undef, 's', 27586) called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 473
eval {...} at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 473
eval {...} at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 425
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x742bcd0)') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x742bcd0)') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x7847c40)', 'Apache=SCALAR(0x7272ec0)') called at /var/www/city/conf/mason/handler.pl line 151
eval {...} at /var/www/city/conf/mason/handler.pl line 148
city7::Mason::handler('Apache=SCALAR(0x7272ec0)') called at /dev/null line 0
eval {...} at /dev/null line 0