fix wrong / before $tag

diff --git a/events.pm b/events.pm
index e892d10..c072df6 100644 (file)
--- 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 );