<%args> $Queue => undef $CreatedBefore => undef $CreatedAfter => undef <%init> my $title = loc("Created tickets in period, grouped by status"); my $q = RT::Queue->new($session{'CurrentUser'}); my $before = RT::Date->new($session{'CurrentUser'}); my $after = RT::Date->new($session{'CurrentUser'}); my $query = 'Status != "deleted" '; if ($CreatedAfter) { $after->Set(Format => 'unknown', Value => $CreatedAfter); $CreatedAfter = $after->AsString; } if ($CreatedBefore) { $before->Set(Format => 'unknown', Value => $CreatedBefore); $CreatedBefore = $before->AsString; } $q->LoadByCols(Name => $Queue); <& /Elements/Header, Title => $title &> <& /Tools/Reports/Elements/Tabs, current_tab => 'Tools/Reports/CreatedByDates.html', Title => $title &>
% if ($Queue|| $CreatedBefore ||$CreatedAfter) { % # if we have a queue, do the search % if ($Queue) { $query .= " AND Queue = '$Queue'"} % if ($CreatedBefore) { $query .= " AND Created < '".$before->ISO."'"; } % if ($CreatedAfter) { $query .= " AND Created > '".$after->ISO."'"} % my $groupby = 'Status'; <& /Search/Elements/Chart, Query => $query, PrimaryGroupBy => $groupby &> % }

<&|/l&>Queue: <& /Elements/SelectQueue, Name => 'Queue', NamedValues => 1, Default => $q->id &>
<&|/l&>Tickets created after:
<&|/l&>Tickets created before: <& /Elements/Submit&>