--- 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;