#!/usr/bin/perl
use Data::Dumper;
BEGIN {
  push @INC,"lib";
}
use FCGI;
use strict;
use system;
while (web::accept()){
  my $order=$web::cgi->param('order') || 'sorszam';
  my $asc=$web::cgi->param('asc') || '1';
  my $year='where start <='.$web::cgi->param('year').' and end>='.$web::cgi->param('year') if $web::cgi->param('year');
  my $sth=db::sql("select sorszam,url,title,kutatasvezeto,start,end,category from kutatasok $year order by ".$order. ($asc==1 ? ' asc': ' desc' ));

    print  $template::templates->{page}->parse(
      FORM => $template::templates->{form}->parse(OTKA_URL=>'web.fc'),
      TABLE=>$template::templates->{table}->parse(
        OTKA_URL=> "web.fc",
        ORDER_SORSZAM=> $order eq 'sorszam'? $asc ^ 1 : 1,
        ORDER_CIM=> $order eq 'title'? $asc ^ 1 : 1,
        ORDER_VEZETO=>$order eq 'kutatasvezeto'? $asc ^ 1 : 1,
        ORDER_KATEGORIA=>$order eq 'category'? $asc ^ 1 : 1,
        YEAR=>$web::cgi->param('year') || '',
        TABLE_ROW=> sub {
          my $ret;
          while (my ($sorszam,$url,$title,$author,$start,$end,$category)=$sth->fetchrow_array){
            $ret.= $template::templates->{table_row}->parse(
                    SORSZAM=>$sorszam,URL=>$url,TITLE=>$title,
                    AUTHOR=>$author,YEAR=>"$start-$end",
                    CATEGORY=>$category)
          } ;return $ret;
        }));
}