<& /tapper/message.mas &> % if ( $c->stash->{view_pager} ) {
% require DateTime; % require DateTime::Format::Strptime; % my $or_dt_now = DateTime->now(); % my $s_dt_now = $or_dt_now->strftime('%F'); % my $or_strp = DateTime::Format::Strptime->new( % pattern => '%F', % ); % my $or_dt = $or_strp->parse_datetime( $c->stash->{report_date} ); % for my $s_act_pager_value (qw/ year month week day /) { % if ( $or_dt->clone->add( $s_act_pager_value . 's' => 1 )->strftime('%F') gt $s_dt_now ) {
« <% $s_act_pager_value %>
% } % else {
« <% $s_act_pager_value %>
% } % }
<% $or_dt->strftime('%a %b %d, %Y') %>
day(s)
<% $or_dt->clone->subtract( days => $c->stash->{pager_interval} - 1 )->strftime('%a %b %d, %Y') %>
% for my $s_act_pager_value (qw/ day week month year /) {
<% $s_act_pager_value %> »
% }


% my $dt_report_date = $c->stash->{report_date}->strftime('%F'); % } % if ( $c->stash->{reports} && @{$c->stash->{reports}} ) { % my ( $s_grouping_id, $d_grouping_date ) = ( q##, q## ); % foreach my $hr_report ( @{$c->stash->{reports}} ) { % if ( $c->stash->{pager_interval} != 1 ) { % if ( $s_grouping_id ne $hr_report->{grouping_id} && $d_grouping_date ne $hr_report->{report_date} ) { % } % } % if ( $s_grouping_id ne $hr_report->{grouping_id} ) { % $s_grouping_id = $hr_report->{grouping_id}; % } % }
ID Created At (GMT) Suite Machine Success Ratio Grouped by Owner
% $d_grouping_date = $hr_report->{report_date}; % my $or_strp = DateTime::Format::Strptime->new( % pattern => '%F', % ); % my $or_dt_act = $or_strp->parse_datetime( $hr_report->{report_date} ); <% $or_dt_act->strftime('%a %b %d, %Y') %>
r<% $hr_report->{report_id} %> 		<% $hr_report->{report_date} . ' ' . $hr_report->{report_time} %>
<% $hr_report->{suite_name} %> 		% if ( $hr_report->{'r.machine_name'} || $hr_report->{machine_name} ) {
<% $hr_report->{'r.machine_name'} || $hr_report->{machine_name} %> % }
<% $hr_report->{'r.successgrade'} || $hr_report->{successgrade} %> 		% my $i_success_width = int($hr_report->{success_ratio} / 2);
% if ( $s_grouping_id =~ /testrun (\d+)/ ) { % my $i_testrun_id = $1; <% $hr_report->{grouping_id} %> % } % else { <% $hr_report->{grouping_id} %> % } % if ( $hr_report->{report_owner} ) {
<% $hr_report->{report_owner} %> % }
% } % else {
no results found for active filters and date.
% } %# Local Variables: %# buffer-file-coding-system: utf-8 %# End: