Subversion Repositories VORC

Rev

Rev 208 | Rev 213 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 208 Rev 211
Line 563... Line 563...
563 
  my $output = shift // "";
 563 
  my $output = shift // "";
564 
  my $year = 1900 + (localtime)[5];
 564 
  my $year = 1900 + (localtime)[5];
Line 565... Line 565...
565
565
566 
  my @whereclause;
 566 
  my @whereclause;
567 
  if ($filter eq "all") {
 567 
  if ($filter eq "all") {
- 
 
 568 
    push @whereclause, "year(date) >= year(now())";
- 
 
 569 
  } elsif ($filter eq "prior") {
568 
    push @whereclause, "year(date) >= year(now())";
570 
    push @whereclause, "year(date) < year(now())";
569 
  } else {
 571 
  } else {
570 
    push @whereclause, "date >= date(now())";
 572 
    push @whereclause, "date >= date(now())";
571 
  }
 573 
  }
572 
#  if ($RCid ne $ORCUSER->{RCid}) {
 574 
#  if ($RCid ne $ORCUSER->{RCid}) {