System error

error:  Can't call method "get_id" on an undefined value at /opt/bricolage/data/burn/stage/oc_1027/smetimes/dhandler.html line 21.
context: 
... 
17:  my @categories = Bric::Biz::Category->lookup({ uri => $ENV{REQUEST_URI} });
18:  </%perl>
19:  % foreach my $c (@categories) {
20:  <%perl>
21:  my $category_id = $c->get_id();
22:  my @stories = Bric::Biz::Asset::Business::Story->list ( { element_type_id=>1148, category_id=>$category_id , Order=> 'cover_date' , OrderDirection=> 'DESC' , Limit=>10 } );
23:  </%perl>
24:  <table width="90%" border="0" cellspacing="0" cellpadding="0">
25:  <tr>
... 
code stack:  /opt/bricolage/data/burn/stage/oc_1027/smetimes/dhandler.html:21
/opt/bricolage/data/burn/stage/oc_1027/smetimes/autohandler_template.html:116
raw error






























Can't call method "get_id" on an undefined value at /opt/bricolage/data/burn/stage/oc_1027/smetimes/dhandler.html line 21.


Trace begun at /usr/share/perl5/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Can\'t call method "get_id" on an undefined value at /opt/bricolage/data/burn/stage/oc_1027/smetimes/dhandler.html line 21.^J') called at /opt/bricolage/data/burn/stage/oc_1027/smetimes/dhandler.html line 21
HTML::Mason::Commands::__ANON__ at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x8a9dca0)') called at /usr/share/perl5/HTML/Mason/Request.pm line 1251
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1245
HTML::Mason::Request::comp(undef, undef) called at /usr/share/perl5/HTML/Mason/Request.pm line 914
HTML::Mason::Request::call_next('HTML::Mason::Request::ApacheHandler=HASH(0x9582010)') called at /opt/bricolage/data/burn/stage/oc_1027/smetimes/autohandler_template.html line 116
HTML::Mason::Commands::__ANON__ at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x8a951b0)') called at /usr/share/perl5/HTML/Mason/Request.pm line 1246
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1245
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/share/perl5/HTML/Mason/Request.pm line 459
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 459
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 411
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x9582010)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 165
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x9582010)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 832
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x8688d74)', 'Apache=SCALAR(0x8a9dee0)') called at (eval 45) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache=SCALAR(0x8a9dee0)') called at /dev/null line 0
eval {...} at /dev/null line 0