The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<&| Elements/Wrapper, %ARGS, title => loc("Activity reports"), show_print_link => 0 &>


</&>

<%args>
$type  => undef
$start => undef
$end   => undef
$query => "Status = 'resolved'"
</%args>
<%init>

unless ($start) {
    my $then = RT::Date->new($session{'CurrentUser'});
    $then->Set(Format => 'Unix', Value => time - (86400*7));
    $ARGS{start} = substr($then->ISO,0,10);
}

unless ($end) {
    my $now = RT::Date->new($session{'CurrentUser'});
    $now->SetToNow();
    $ARGS{end} = substr($now->ISO,0,10);
}

if ($type) {
    $m->redirect($type . ".html?" . $m->comp('/Elements/QueryString', query => $query, start => $start, end => $end));
}
</%init>