



schedule_harvest_at_expiration(Ret) :-
	rdfpage(Ret, retr:initialResource, Address),
	stale(Retr, Stale, []),
	(   Stale > 0 
	->  ensure_fresh(Address)
	;   StaleIn is 0-Stale,
	    schedule_in(Stale, ensure_fresh(Address), x)
	).


schedule_harvest_at_expiration :-


%  for address already harvested once
ensure_fresh(Address) :-


please_harvest(Address, Reason, [ callback, ... ]  )


reasons

submitted(who, when)
search_box(from, when)  
clicked(from, when)
