File Coverage

lib/Kwiki/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::RecentChanges;
use Kwiki::Plugin -Base;
use mixin 'Kwiki::Installer';
our $VERSION = '0.14';

const class_id => 'recent_changes';
const css_file => 'recent_changes.css';
const cgi_class => 'Kwiki::RecentChanges::CGI';

sub register {
    my $registry = shift;
    $registry->add(action => 'recent_changes_ajax_list');
    $registry->add(action => 'recent_changes');
    $registry->add(toolbar => 'recent_changes_button',
                   template => 'recent_changes_button.html',
                  );
    $registry->add(toolbar => 'recent_changes_options',
                   template => 'recent_changes_options.html',
                   show_for => 'recent_changes'
                  );

    $registry->add(preference => $self->recent_changes_depth);
}

sub recent_changes_depth {
    my $p = $self->new_preference('recent_changes_depth');
    $p->query('What time interval should "Recent Changes" display?');
    $p->type('pulldown');
    my $choices = [
        1 => 'Last 24 hours',
        2 => 'Last 2 Days',
        3 => 'Last 3 Days',
        7 => 'Last Week',
        14 => 'Last 2 Weeks',
        30 => 'Last Month',
        60 => 'Last 2 Months',
        90 => 'Last 3 Months',
        182 => 'Last 6 Months',
    ];
    $p->choices($choices);
    $p->default(7);
    return $p;
}

sub recent_changed_pages {
    my $depth_object = $self->preferences->recent_changes_depth;
    my $depth = $depth_object->value;
    my $label = +{@{$depth_object->choices}}->{$depth};
    my $pages;
    @$pages = sort {
        $b->modified_time <=> $a->modified_time
    } $self->pages->all_since($depth * 1440);
    return $pages;
}

sub recent_changes_ajax_list {
    my $pages = $self->recent_changed_pages;
    $self->hub->headers->content_type("text/xml");
    $self->template_process('recent_changes_ajax_list.xml', pages => $pages);
}

sub recent_changes {
    my $depth_object = $self->preferences->recent_changes_depth;
    my $depth = $self->cgi->depth || $depth_object->value;
    my $label = +{@{$depth_object->choices}}->{$depth};
    my $pages;
    @$pages = sort {
        $b->modified_time <=> $a->modified_time
    } $self->pages->all_since($depth * 1440);
    my $num = @$pages;
    $self->render_screen(
        pages => $pages,
        screen_title => "$num Changes in the $label:",
    );
}

package Kwiki::RecentChanges::CGI;
use Kwiki::CGI -base;

cgi 'depth';

package Kwiki::RecentChanges;

__DATA__