Show
Ignore:
Timestamp:
05/18/06 17:06:43 (6 years ago)
Author:
nick
Message:

Finish shifting common code out into Listing.pm

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/Listing.pm

    r295 r296  
    4747 
    4848=cut 
     49sub fetch_oldest_for_recently_changed { 
     50    my ($self, %args) = @_; 
     51 
     52    my %criteria = (ignore_case => 1); 
     53 
     54    $args{days} ? $criteria{days}           = $args{days} 
     55                : $criteria{last_n_changes} = $args{items} || 15; 
     56 
     57    $criteria{metadata_wasnt} = { major_change => 0 }     if $args{ignore_minor_edits}; 
     58    $criteria{metadata_was}   = $args{filter_on_metadata} if $args{filter_on_metadata}; 
     59 
     60    my @changes = $self->{wiki}->list_recent_changes(%criteria); 
     61 
     62    return $changes[0]; 
     63} 
    4964 
    50651;