System error

error:  Undefined subroutine &HTML::Mason::Commands::Today called at /data/riistaweb-prod/mason_lib/RiistaWeb/ActivityInformation.mcomp line 68.
context: 
... 
64:  my $alkaaTxt = "";
65:  my $paattyyTxt = "";
66:  my @today;
67:  if ( $alkaa eq "DEFAULT" ) {
68:  (@today) = Today();
69:  ($year, $month, $day) = @today;
70: 
71:  $alkaa = sprintf("%02d.%02d.%04d", $day, $month, $year);
72:  }
... 
code stack:  /data/riistaweb-prod/mason_lib/RiistaWeb/ActivityInformation.mcomp:68
/data/riistaweb-prod/html/tapahtumat/tapahtumaprint.mhtml:32
raw error






























Undefined subroutine &HTML::Mason::Commands::Today called at /data/riistaweb-prod/mason_lib/RiistaWeb/ActivityInformation.mcomp line 68.


Trace begun at /usr/share/perl5/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Undefined subroutine &HTML::Mason::Commands::Today called at /data/riistaweb-prod/mason_lib/RiistaWeb/ActivityInformation.mcomp line 68.^J') called at /data/riistaweb-prod/mason_lib/RiistaWeb/ActivityInformation.mcomp line 68
HTML::Mason::Commands::__ANON__('paattyy', 'DEFAULT', 'lang', 'fi', 'tyyppi', 'AMPKOE', 'printlayout', 1, 'alkaa', 'DEFAULT', 'alue', 850) called at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x1d5c058)', 'paattyy', 'DEFAULT', 'lang', 'fi', 'tyyppi', 'AMPKOE', 'printlayout', 1, 'alkaa', 'DEFAULT', 'alue', 850) called at /usr/share/perl5/HTML/Mason/Request.pm line 1278
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1268
HTML::Mason::Request::comp(undef, undef, 'paattyy', 'DEFAULT', 'lang', 'fi', 'tyyppi', 'AMPKOE', 'printlayout', 1, 'alkaa', 'DEFAULT', 'alue', 850) called at /data/riistaweb-prod/html/tapahtumat/tapahtumaprint.mhtml line 32
HTML::Mason::Commands::__ANON__('paattyy', 'DEFAULT', 'tyyppi', 'AMPKOE', 'lang', 'fi', 'alkaa', 'DEFAULT', 'alue', 850) called at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x756658)', 'paattyy', 'DEFAULT', 'tyyppi', 'AMPKOE', 'lang', 'fi', 'alkaa', 'DEFAULT', 'alue', 850) called at /usr/share/perl5/HTML/Mason/Request.pm line 1273
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1268
HTML::Mason::Request::comp(undef, undef, undef, 'paattyy', 'DEFAULT', 'tyyppi', 'AMPKOE', 'lang', 'fi', 'alkaa', 'DEFAULT', 'alue', 850) called at /usr/share/perl5/HTML/Mason/Request.pm line 467
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 467
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 419
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x12fc610)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 165
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x12fc610)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 831
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x12f85b8)', 'Apache2::RequestRec=SCALAR(0x116a9c8)') called at (eval 35) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x116a9c8)') called at -e line 0
eval {...} at -e line 0