X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/41369c2838b08b184b03857cc544e052e8ed379d..6f2c69a375055fa5c6ac9dc77eabbb9276032017:/ikiwiki diff --git a/ikiwiki b/ikiwiki index 1b282abf9..129076f75 100755 --- a/ikiwiki +++ b/ikiwiki @@ -167,9 +167,10 @@ sub isinlinableimage ($) { $file=~/\.(png|gif|jpg|jpeg)$/; } -sub htmllink ($$) { +sub htmllink { my $page=shift; my $link=shift; + my $noimagelink=shift; my $bestlink=bestlink($page, $link); @@ -188,7 +189,7 @@ sub htmllink ($$) { $bestlink=File::Spec->abs2rel($bestlink, dirname($page)); - if (isinlinableimage($bestlink)) { + if (! $noimagelink && isinlinableimage($bestlink)) { return ""; } return "$link"; @@ -396,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'; @@ -404,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'; @@ -644,10 +645,10 @@ sub cgi () { my $list="