index: move the declaration of $sort to the beginning of the file
authorTimothy Gu <timothygu99@gmail.com>
Wed, 11 Jun 2014 01:07:49 +0000 (18:07 -0700)
committerMichael Niedermayer <michaelni@gmx.at>
Mon, 16 Jun 2014 15:10:25 +0000 (17:10 +0200)
Signed-off-by: Timothy Gu <timothygu99@gmail.com>
Signed-off-by: Michael Niedermayer <michaelni@gmx.at>
index.cgi

index 1aa2c00..9157daa 100755 (executable)
--- a/index.cgi
+++ b/index.cgi
@@ -30,6 +30,9 @@ use URI::Escape;
 # split(/:/, $this_query, 2);
 my @queries = split(/\/\//, uri_unescape param 'query') if (param 'query');
 
+my $sort = param('sort');
+$sort    = $sort eq 'arch' ? 'subarch': $sort;
+
 (my $uri = $ENV{REQUEST_URI}) =~ s/\?.*//;
 
 opendir D, $fatedir or fail 'Server error: $fatedir not found';
@@ -78,9 +81,8 @@ $allfail = 100 * $allfail / @reps;
 my $warn = 100 - $allpass - $allfail;
 
 my @sort = ('subarch', 'os', 'cc', 'comment', 'slot');
-my $sort = param('sort');
 my $sdir = 1; # default to ascending sorting
-defined $sort and unshift @sort, $sort eq 'arch'? 'subarch': $sort;
+defined $sort and unshift @sort, $sort;
 $sort ||= $sort[0];
 
 sub nscmp {