| 54 | | my ($self, %args) = @_; |
| 55 | | |
| 56 | | my $wiki = $self->{wiki}; |
| 57 | | |
| 58 | | my %criteria = ( |
| 59 | | ignore_case => 1, |
| 60 | | ); |
| 61 | | |
| 62 | | # If we're not passed any parameters to limit the items returned, default to 15. |
| 63 | | $args{days} ? $criteria{days} = $args{days} |
| 64 | | : $criteria{last_n_changes} = $args{items} || 15; |
| 65 | | |
| 66 | | $criteria{metadata_wasnt} = { major_change => 0 } if $args{ignore_minor_edits}; |
| 67 | | $criteria{metadata_was} = $args{filter_on_metadata} if $args{filter_on_metadata}; |
| 68 | | |
| 69 | | my @changes = $wiki->list_recent_changes(%criteria); |
| 70 | | my $atom_timestamp = $self->feed_timestamp(%args); |
| 71 | | |
| 72 | | return $self->generate_node_list_feed($atom_timestamp, @changes); |
| | 54 | my ($self, %args) = @_; |
| | 55 | |
| | 56 | my @changes = $self->fetch_recently_changed_nodes(%args); |
| | 57 | my $atom_timestamp = $self->feed_timestamp(%args); |
| | 58 | |
| | 59 | return $self->generate_node_list_feed($atom_timestamp, @changes); |
