(DoIndex): Sort pages.

This commit is contained in:
Alex Schroeder
2003-11-11 17:21:40 +00:00
parent f0a2d07b39
commit bd9cdb410a

View File

@@ -275,7 +275,7 @@ sub InitVariables { # Init global session variables for mod_perl!
}
}
$WikiDescription = $q->p($q->a({-href=>'http://www.oddmuse.org/'}, 'Oddmuse'))
. $q->p('$Id: wiki.pl,v 1.256 2003/11/11 17:19:14 as Exp $');
. $q->p('$Id: wiki.pl,v 1.257 2003/11/11 17:21:40 as Exp $');
}
sub InitCookie {
@@ -2702,7 +2702,7 @@ sub DoIndex {
ReadPermanentAnchors() if $anchors > 0 and not %PermanentAnchors;
push(@pages, AllPagesList()) if $anchors < 2;
push(@pages, keys %PermanentAnchors) if $anchors > 0;
sort @pages if $anchors > 0;
@pages = sort @pages if $anchors > 0;
PrintPageList(@pages);
PrintFooter();
}