From eb061f5119325e666f0dff40d4089e5c1df58e17 Mon Sep 17 00:00:00 2001 From: cvs2git Date: Sun, 16 Mar 2008 19:58:34 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'TRIXBOX_2_6'. --- rt/html/Reports/Activity/Elements/MiniPlot | 57 ------------------------------ 1 file changed, 57 deletions(-) delete mode 100644 rt/html/Reports/Activity/Elements/MiniPlot (limited to 'rt/html/Reports/Activity/Elements/MiniPlot') diff --git a/rt/html/Reports/Activity/Elements/MiniPlot b/rt/html/Reports/Activity/Elements/MiniPlot deleted file mode 100644 index f92032818..000000000 --- a/rt/html/Reports/Activity/Elements/MiniPlot +++ /dev/null @@ -1,57 +0,0 @@ - -% for my $major (@major) { - -% } - -% for my $major (@major) { - -% } - -
-
    -% my $i = 0; -% for my $minor (@minor) { -% my $percent = int( 100 * ($data->{$major}{$minor} || 0) / $max ); -
  • <% $minor %>: <% $percent %>%
  • -% $i++; -% } -
-
<% $major %>
- - -% my $i = 0; -% for my $minor (@minor) { - -% } - -
<% $minor %>
- -<%args> -$data -$major => undef -$minor => undef - -<%init> - -my $max = 1; - -my %minor; -for my $major (keys %{$data}) { - for (keys %{$data->{$major}}) { - $minor{$_}++; - $max = $data->{$major}{$_} if $data->{$major}{$_} > $max; - } -} - -my @major = $major ? @{$major} : sort keys %{$data}; -my @minor = $minor ? @{$minor} : sort keys %minor; - -return unless @minor and @major; - -my $each = int( (100 / @minor) ); -my $barwidth = int( (100 / @minor) * (3/4) ); -my $baroffset = int( (100 / @minor) * (1/8) ); - - -- cgit v1.2.1