[Rt-commit] r17998 - in rt/3.999/branches/merge_to_3.8.2: .

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Jan 29 04:11:16 2009
New Revision: 17998

Modified:
   rt/3.999/branches/merge_to_3.8.2/   (props changed)
   rt/3.999/branches/merge_to_3.8.2/share/html/Search/Chart

Log:
 r19188 at sunnavys-mb:  sunnavy | 2009-01-29 16:33:43 +0800
 merged share/html/Search/Chart


Modified: rt/3.999/branches/merge_to_3.8.2/share/html/Search/Chart
==============================================================================
--- rt/3.999/branches/merge_to_3.8.2/share/html/Search/Chart	(original)
+++ rt/3.999/branches/merge_to_3.8.2/share/html/Search/Chart	Thu Jan 29 04:11:16 2009
@@ -158,9 +158,10 @@
 }
 
 my %data;
-foreach my $key (@keys) { $data{$key} = shift @values; }
-my @sorted_keys = sort @keys;
-my @sorted_values = map { $data{$_}} @sorted_keys;
+my %loc_keys;
+foreach my $key (@keys) { $data{$key} = shift @values; $loc_keys{$key} = _($key); }
+my @sorted_keys = map { $loc_keys{$_}} sort { $loc_keys{$a} cmp $loc_keys{$b} } keys %loc_keys;
+my @sorted_values = map { $data{$_}} sort { $loc_keys{$a} cmp $loc_keys{$b} } keys %loc_keys;
 
 my $plot = $chart->plot( [ [@sorted_keys], [@sorted_values] ] ) or die $chart->error;
 $m->comp( 'SELF:Plot', plot => $plot, %ARGS );