Subversion Repositories VORC

Rev

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

Rev 50 Rev 53
Line 278... Line 278...
278 
}
 278 
}
Line 279... Line 279...
279 
 
 279 
 
280 
sub getSchedule {
 280 
sub getSchedule {
281 
  my $RCid = shift // return "ERROR: No RCid provided to getSchedule";
 281 
  my $RCid = shift // return "ERROR: No RCid provided to getSchedule";
- 
 
 282 
  my $filter = shift // "";
Line 282... Line 283...
282 
  my $filter = shift // "";
 283 
  my $year = 1900 + (localtime)[5];
283
284
284 
  my @whereclause;
 285 
  my @whereclause;
285 
  if ($filter eq "all") {
 286 
  if ($filter eq "all") {
286 
  	push @whereclause, "date >= '2023-01-01'";
287 
  	push @whereclause, "date >= '$year-01-01'";
287 
  } else {
 288 
  } else {
288 
  	push @whereclause, "date >= date(now())";
 289 
  	push @whereclause, "date >= date(now())";
289 
  }
 290 
  }