File Coverage

blib/lib/Kwiki/Widgets/RecentChanges.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Kwiki::Widgets::RecentChanges;
use Kwiki::Plugin -Base;
use mixin 'Kwiki::Installer';
our $VERSION = '0.01';

const class_id => 'widgets_recent_changes';
const class_title => 'Widgets Recent Changes';

sub register {
    my $registry = shift;
    $registry->add(widget => 'recent_changes',
		   template => 'widgets_recent_changes.html');
    $registry->add(preference => $self->recent_changes_numbers);
}

sub recent_changes_numbers {
    my $p = $self->new_preference('widget_recent_changes_numbers');
    $p->query('How many recent changed pages to display in the widget ?');
    $p->type('pulldown');
    my $choices = [ qw(5 5 10 10 15 15 20 20) ];
    $p->choices($choices);
    $p->default(5);
    return $p;
}

sub get_pages {
    my $number = $self->preferences->widget_recent_changes_numbers->value;
    my @pages = sort {
        $b->modified_time <=> $a->modified_time
    } $self->pages->recent_by_count($number);
    return \@pages;
}

__DATA__