Was doing date order backwards, compared to the way it used to be.

This commit is contained in:
terry%mozilla.org 1999-07-26 19:06:26 +00:00
Родитель 64cc6b88f5
Коммит 84d04cee96
1 изменённых файлов: 7 добавлений и 7 удалений

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

@ -97,14 +97,16 @@ to sort by that column.)";
my @fields = split(/,/, $::FORM{'sort'});
sub Compare {
my $info_a = eval("\\\%$a");
my $info_b = eval("\\\%$b");
my $rval = 0;
my $key;
foreach $key (@fields) {
$rval = $$info_a{$key} cmp $$info_b{$key};
return $rval unless ($rval == 0);
if ($key eq 'date') {
$rval = $$b{$key} cmp $$a{$key};
} else {
$rval = $$a{$key} cmp $$b{$key};
}
return $rval unless ($rval == 0);
}
return $rval;
}
@ -116,9 +118,7 @@ my $total_removed = 0;
# Calculate delta information
#
CHECKIN:
foreach $checkin (@list) {
$info = eval("\\\%$checkin");
foreach $info (@list) {
$$info{added} = 0;
$$info{removed} = 0;