System error

error:  Undefined subroutine &main::gna_catalog_url_root called at /var/www/lib/gna-catalog.pl line 41.
context: 
... 
37: 
38:  sub gna_catalog_first_letter_control {
39:  my ($inref, $listref) = @_;
40:  my ($letter);
41:  my ($root) = &gna_catalog_url_root($inref, "first_letter");
42:  my ($output) = "";
43:  if ($listref eq "") {
44:  $listref = ['A'..'Z'];
45:  }
... 
code stack:  /var/www/lib/gna-catalog.pl:41
/var/www/lib/gna-catalog.pl:86
/var/www/lib/GnaCatalog.pm:203
/var/www/lib/GnaCatalog.pm:188
/var/www/html/catalog/browse.html:82
/var/www/html/catalog/browse/dhandler:1
raw error






























Undefined subroutine &main::gna_catalog_url_root called at /var/www/lib/gna-catalog.pl line 41.


Trace begun at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Undefined subroutine &main::gna_catalog_url_root called at /var/www/lib/gna-catalog.pl line 41.^J') called at /var/www/lib/gna-catalog.pl line 41
main::gna_catalog_first_letter_control('HASH(0x9c89418)', 'ARRAY(0x9d77f20)') called at /var/www/lib/gna-catalog.pl line 86
main::gna_catalog_subtopics('HASH(0x9c89418)', '', 'sponsor', '/mason/catalog/browse.html?;sponsor=', 0) called at /var/www/lib/GnaCatalog.pm line 203
GnaCatalog::subtopics('GnaCatalog=HASH(0x9e3e3d8)', 'HASH(0x9c89418)', '', 'sponsor', '/mason/catalog/browse.html?;sponsor=', 0) called at /var/www/lib/GnaCatalog.pm line 188
GnaCatalog::subtopic_block('GnaCatalog=HASH(0x9e3e3d8)', 1) called at /var/www/html/catalog/browse.html line 82
HTML::Mason::Commands::__ANON__('topic', '', 'order', 'sponsor', 'sponsor', undef) called at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x9c54ef8)', 'topic', '', 'order', 'sponsor', 'sponsor', undef) called at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Request.pm line 1256
eval {...} at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Request.pm line 1250
HTML::Mason::Request::comp(undef, undef, 'topic', '', 'order', 'sponsor', 'sponsor', undef) called at /var/www/html/catalog/browse/dhandler line 1
HTML::Mason::Commands::__ANON__ at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x9c61c68)') called at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Request.pm line 1251
eval {...} at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Request.pm line 1250
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Request.pm line 460
eval {...} at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Request.pm line 460
eval {...} at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Request.pm line 412
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x9e3b370)') called at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x9e3b370)') called at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/ApacheHandler.pm line 827
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x8ed46c0)', 'Apache2::RequestRec=SCALAR(0x9df81d8)') called at (eval 82) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x9df81d8)') called at -e line 0
eval {...} at -e line 0