web commit from 66.118.98.137:

[ikiwiki.git] / ikiwiki

diff --git a/ikiwiki b/ikiwiki
index b9acc10b5117f5233b5e6e96bad06a29c8f834db..61fa4a713f52a6b3d75dc6d5fefbf3e6bc2247dc 100755 (executable)
--- a/ikiwiki
+++ b/ikiwiki
@@ -397,7 +397,7 @@ sub rcs_recentchanges ($) {
                                $when=concise(ago(time - str2time($3)));
                        }
                        elsif ($state eq 'header' && /^\s+[A-Z]\s+\Q$svn_base\E\/(.+)$/) {
-                               push @pages, pagename($1);
+                               push @pages, pagename($1) if length $1;
                        }
                        elsif ($state eq 'header' && /^$/) {
                                $state='body';
@@ -405,7 +405,7 @@ sub rcs_recentchanges ($) {
                        elsif ($state eq 'body' && /$div/) {
                                push @ret, { rev => $rev, user => $user,
                                        when => $when, message => $message,
-                                       pages => [@pages] };
+                                       pages => [@pages] } if @pages;
                                return @ret if @ret >= $num;
                                
                                $state='header';
@@ -645,10 +645,10 @@ sub cgi () {
                my $list="<ul>\n";
                foreach my $change (rcs_recentchanges(100)) {
                        $list.="<li>";
-                       $list.=join(", ", map { htmllink("index", $_, 1) } @{$change->{pages}});
+                       $list.=join(", ", map { htmllink("", $_, 1) } @{$change->{pages}});
                        $list.="<br>\n";
                        $list.="changed ".$change->{when}." by ".
-                              htmllink("index", $change->{user}, 1).
+                              htmllink("", $change->{user}, 1).
                               ": <i>".$change->{message}."</i>\n";
                        $list.="</li>\n";
                }
@@ -700,7 +700,7 @@ sub cgi () {
                $q->param("do", "save");
                print $q->header,
                      $q->start_html("Creating $page"),
-                     $q->start_h1("<a href=\"$url\">$wikiname</a>/ Creating $page"),
+                     $q->h1("<a href=\"$url\">$wikiname</a>/ Creating $page"),
                      $q->start_form(-action => $action),
                      $q->hidden('do'),
                      "Select page location:",