Page.pm: Let get_version_string sort architectures alphabetically

[deb/packages.git] / cgi-bin / dispatcher.pl

diff --git a/cgi-bin/dispatcher.pl b/cgi-bin/dispatcher.pl
index d67f86d5687808c8df9199bf6cb84012eb9dacc3..754e9b08f4696d310ab14c4a8c0b745b2cb94a73 100755 (executable)
--- a/cgi-bin/dispatcher.pl
+++ b/cgi-bin/dispatcher.pl
@@ -119,13 +119,13 @@ if (my $path = $input->path_info() || $input->param('PATH_INFO')) {
        }
 
        my %SUITES = map { $_ => 1 } @SUITES;
-       my %SUITES_ALIAS = ( woody => 'oldstable',
-                            sarge => 'stable',
-                            etch => 'testing',
+       my %SUITES_ALIAS = ( sarge => 'oldstable',
+                            etch => 'stable',
+                            lenny => 'testing',
                             sid => 'unstable', );
        my %SECTIONS = map { $_ => 1 } @SECTIONS;
        my %ARCHIVES = map { $_ => 1 } @ARCHIVES;
-       my %ARCHITECTURES = map { $_ => 1 } (@ARCHITECTURES, 'all');
+       my %ARCHITECTURES = map { $_ => 1 } (@ARCHITECTURES, 'all', 'any');
        my %PRIORITIES = map { $_ => 1 } @PRIORITIES;
        my %params_set;
        sub set_param_once {
@@ -158,7 +158,8 @@ if (my $path = $input->path_info() || $input->param('PATH_INFO')) {
            } elsif (!$need_pkg && ($_ eq 'source')) {
                set_param_once( $input, \%params_set, 'source', 1);
            } elsif ($ARCHITECTURES{$_}) {
-               set_param_once( $input, \%params_set, 'arch', $_);
+               set_param_once( $input, \%params_set, 'arch', $_)
+                   unless $_ eq 'any';
            } elsif ($PRIORITIES{$_}) {
                set_param_once( $input, \%params_set, 'priority', $_);
            } else {