--- trunk/lib/BackupPC/SearchLib.pm 2005/10/24 15:04:45 227
+++ trunk/lib/BackupPC/SearchLib.pm 2005/10/25 09:30:51 229
@@ -918,20 +918,35 @@
sub sort_header($$$$) {
my ($param, $display, $name, $align) = @_;
- my ($sort_what, $sort_dir) = split(/_/,$param->{'sort'},2);
+ my ($sort_what, $sort_direction) = split(/_/,$param->{'sort'},2);
my $old_sort = $param->{'sort'};
my $html = qq{
{'sort'} = $name . '_' . $dir;
+ my $direction = lc($sort_direction);
+
+ # swap direction or fallback to default
+ $direction =~ tr/ad/da/;
+ $direction = 'a' unless ($direction =~ /[ad]/);
+
+ $param->{'sort'} = $name . '_' . $direction;
$html .= ' style="border: 1px solid #808080;"';
+
+ # add unicode arrow for direction
+ $arrow .= ' ';
+ $arrow .= $direction eq 'a' ? '▲'
+ : $direction eq 'd' ? '▼'
+ : ''
+ ;
+
} else {
$param->{'sort'} = $name . '_a';
}
- $html .= '>' . $display . ' | ';
+
+ $html .= '>' . $display . '' . $arrow . '';
$param->{'sort'} = $old_sort;
return $html;