diff options
author | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2006-03-11 03:56:32 +0000 |
---|---|---|
committer | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2006-03-11 03:56:32 +0000 |
commit | 227d2f62c3ff01309f4b191de0aa939682eb3601 (patch) | |
tree | a9be469b53a0c7ff02cad8a81ef74d0159632247 | |
parent | f7d49b96d21cbbbf7fbf11de4ecd051ba73a17d5 (diff) |
recentchanges
-rwxr-xr-x | ikiwiki | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -383,7 +383,6 @@ sub rcs_recentchanges ($) { my ($rev, $user, $when, @pages, $message); foreach (`LANG=C svn log -v '$svn_url'`) { chomp; - print STDERR "state: $state ($_)\n"; if ($state eq 'start' && /$div/) { $state='header'; } @@ -402,7 +401,6 @@ sub rcs_recentchanges ($) { push @ret, { rev => $rev, user => $user, date => $when, message => $message, pages => [@pages] }; - print STDERR "have: $#ret; most recent is $ret[$#ret]\n"; return @ret if @ret >= $num; $state='header'; @@ -641,7 +639,6 @@ sub cgi () { if ($do eq 'recentchanges') { my $list="<ul>\n"; foreach my $change (rcs_recentchanges(100)) { - print STDERR "change: $change....\n"; $list.="<li>"; foreach my $page (@{$change->{pages}}) { $list.=$page." "; @@ -649,7 +646,7 @@ sub cgi () { $list.="<br>\n"; $list.="changed ".$change->{when}." by ". htmllink("index", $change->{user}). - ": <i>".$change->{message}."<br>\n"; + ": <i>".$change->{message}."</i><br>\n"; $list.="</li>\n"; } $list.="</ul>\n"; |