This commit is contained in:
terry%mozilla.org 1999-10-18 23:32:03 +00:00
Родитель 5d310e094f
Коммит a345d88f7e
1 изменённых файлов: 4 добавлений и 2 удалений

Просмотреть файл

@ -102,12 +102,14 @@ my @fields = split(/,/, $::FORM{'sort'});
sub Compare {
my $rval = 0;
my $key;
my $aref = eval("\\\%$a");
my $bref = eval("\\\%$b");
foreach $key (@fields) {
if ($key eq 'date') {
$rval = $$b{$key} cmp $$a{$key};
$rval = $$bref{$key} cmp $$aref{$key};
} else {
$rval = $$a{$key} cmp $$b{$key};
$rval = $$aref{$key} cmp $$bref{$key};
}
return $rval unless ($rval == 0);
}