Total Occurences: <%= $returner->{'total_occurences'} %>
Average Duration: <%= &subs::duration_sayer($returner->{'average_duration'} / 1000) %>
Total Duration: <%= &subs::duration_sayer($returner->{'total_duration'} / 1000) %>
Average Between: <%= &subs::duration_sayer($returner->{'between_average'} / 1000) %>
Total Between: <%= &subs::duration_sayer($returner->{'between_total'} / 1000) %>
<% my @cols = @{$time_lengths}; #qw/minute hour day week month year/; %>
<% my @rows = @{$time_scopes}; %>
<% my $s_display = $settings->{'s_display'}; %>
<% my $s_calc = $settings->{'s_calc'}; %>
<% my $s_visual = $settings->{'s_visual'}; %>
<% my $s_lock = $settings->{'s_lock'}; %>
<% my $s_count = $settings->{'s_scope_count'}; %>
<% my $s_movement = $settings->{'s_movement'}; %>
<% if (scalar @{$appts} > 0) { %>
<% foreach my $col ( @cols ) { %>
<%= &subs::format_name($col) %>
<% } %>
|
<% foreach my $ty ( @cols ) { %>
<%= &subs::format_name($ty) %> |
<% } %>
<% foreach my $rw ( @rows ) { %>
| <%= &subs::format_name($rw) %> |
<% foreach my $ry ( @cols ) { %>
<% if ($returner->{$rw}->{$ry}) {
<% if ( $returner->{$rw}->{$ry} =~ /[A-Za-z0-9]/gi ) { %>
<% if ($s_display eq 'occurences') { %>
<%= $returner->{$rw}->{$ry}->{$s_display} %>
<% } elsif ($s_display eq 'duration') { %>
<%= &subs::duration_sayer($returner->{$rw}->{$ry}->{$s_display} / 1000) %>
<% } elsif ($s_display eq 'amount' || $s_display eq 'total') { %>
<%= &subs::price_formatter($returner->{$rw}->{$ry}->{$s_display}) %>
<% } else { %>
<%= $returner->{$rw}->{$ry}->{$s_display} %>
<% } %>
<% } elsif ($rw eq 'average' || $rw eq 'total') { %>
<% if ($s_display eq 'occurences') { %>
<%= $returner->{$rw}->{$ry} %>
<% } elsif ($s_display eq 'duration') { %>
<%= &subs::duration_sayer($returner->{$rw}->{$ry} / 1000) %>
<% } elsif ($s_display eq 'amount' || $s_display eq 'total') { %>
<%= &subs::price_formatter($returner->{$rw}->{$ry}) %>
<% } else { %>
<%= $returner->{$rw}->{$ry} %>
<% } %>
<% } %>
|
<% } %>
<% } %>
<% } %>
<% if (keys %{$returner->{'budgets'}}) { %>
<% foreach my $b (keys %{$returner->{'budgets'}}) { %>
<%= &subs::format_name($b) %>: <%= $returner->{'budgets'}->{$b} %>
<% } %>
<% } %>
<%= include 'apps/evaluation', evaluation => $evaluation, app => $app %>
<% my @statistics = qw/first_seen last_seen first_recorded last_recorded shortest longest shortest_between longest_between/; %>
| Stat | Dur | T | ST |
<% foreach my $s (@statistics) { %>
| <%= &subs::format_name($s) %> |
<%= &subs::duration_sayer($returner->{$s}->{'duration'} / 1000 ) %> |
|
|
<% } %>
<% } else { %>
None
<% } %>