sort backlinks by page name

diff --git a/ikiwiki b/ikiwiki
index 1ea8d082a547957932bb829c360f9c16b81a487d..058b3ffa21e007cd0f956581e6412dc52b7884d8 100755 (executable)
--- a/ikiwiki
+++ b/ikiwiki
@@ -120,7 +120,6 @@ sub writefile ($$) { #{{{
 
        my $dir=dirname($file);
        if (! -d $dir) {
-               print STDERR ">>$dir<<\n";
                my $d="";
                foreach my $s (split(m!/+!, $dir)) {
                        $d.="$s/";
@@ -246,8 +245,7 @@ sub backlinks ($) { #{{{
                }
        }
 
-       # TODO sort by page name
-       return @links;
+       return sort { $a->{page} cmp $b->{page} } @links;
 } #}}}
        
 sub parentlinks ($) { #{{{
@@ -672,7 +670,8 @@ sub misctemplate ($$) { #{{{
        my $pagebody=shift;
        
        my $template=HTML::Template->new(
-               filename => "$templatedir/misc.tmpl");
+               filename => "$templatedir/misc.tmpl"
+       );
        $template->param(
                title => $title,
                indexlink => indexlink(),
@@ -686,7 +685,8 @@ sub cgi_recentchanges ($) { #{{{
        my $q=shift;
        
        my $template=HTML::Template->new(
-               filename => "$templatedir/recentchanges.tmpl");
+               filename => "$templatedir/recentchanges.tmpl"
+       );
        $template->param(
                title => "RecentChanges",
                indexlink => indexlink(),