Advertisement
Guest User

harvest

a guest
Jul 28th, 2016
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.31 KB | None | 0 0
  1. $auth_list = ($mode ne 'all')
  2.         ? DB->resultset('Auth')->search({
  3.             -and => [cover => undef,
  4.            
  5.                     -or => [{ harvest_last_time => undef },
  6.                     { harvest_last_time => { '<', $last_month } },
  7.                     { harvest_max_eshop => { '<', $max_eshop_id } } ]
  8.             ]
  9.         })
  10.         : DB->resultset('Auth')
  11. unless $ENV{DEBUG};
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement