Anonymous

Message tiedotteet.am ...
ActionMap tiedotteet <<EOR
sub {
  my ($action, $page, $issue) = split ('/', shift);
  $current_year = $Tag->time('', {}, '%Y');
  if ($page eq 'tiedote' and $issue > 0){
    $CGI-> {mv_nextpage} = 'tiedotteet';
    $Tag->tmp(mv_tiedotenro, $issue);
  } elsif ($page >= 2000 and $page <= $current_year) {
    $CGI-> {mv_nextpage} = 'tiedotteet';
    $Tag->tmp(mv_vuosi,$page);
  } elsif (!$page) {
    $CGI-> {mv_nextpage} = 'tiedotteet';
#    $Tag->tmp(mv_vuosi,$current_year);
  } else {
    $CGI-> {mv_nextpage} = 'missing';
  }
if($CGI->{vuosi} >= 2000 and $CGI->{vuosi} <= $current_year) {
  $Tag->tmp(mv_vuosi,$CGI->{vuosi});
  $Tag->tmp(select_haku, '1')
}
  $CGI-> {mv_todo} = 'return';
  $Tag->update('process');
  return 1;
}
EOR