From: Julien Moutinho <julm+ikiwiki+events@autogeree.net>
Date: Mon, 21 Apr 2014 15:10:24 +0000 (+0200)
Subject: fix wrong / before $tag
X-Git-Url: http://git.cyclocoop.org/?p=ikiwiki%2Fevents.git;a=commitdiff_plain;h=c8306c98c670199a94e4f84b6147c5d858c47902

fix wrong / before $tag
---

diff --git a/events.pm b/events.pm
index e892d10..c072df6 100644
--- a/events.pm
+++ b/events.pm
@@ -202,7 +202,8 @@ sub event_of_page ($%) {
 		 (keys %{$IkiWiki::typedlinks{$event}{tag}}));
 	@tags
 	 = map {
-		my $tag = $_;
+		my $besttag = bestlink($params{page}, $_);
+		my $tag = (length $besttag > 0 ? $besttag : $_);
 		my $title
 		 = exists $pagestate{$tag}{meta}{title}
 		 ? $pagestate{$tag}{meta}{title}
@@ -211,7 +212,7 @@ sub event_of_page ($%) {
 		 = htmllink
 		 ( $params{page}
 		 , $params{destpage}
-		 , '/'.$tag
+		 , (length $besttag == 0 and defined $config{tag_new} ? $config{tag_new} : '').'/'.$tag
 		 , linktext => $title
 		 , noimageinline => 1
 		 , title => $title );