fixed link makro to do encoding of special characters

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@194 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index 11fbe52791014fda2e9c0cb6af9abbf187fd1748..53e9be59cbe4afb0dcda50a24bfb1da219a54f03 100644 (file)
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -332,7 +332,8 @@ Simon Cozens, C<simon@cpan.org>
 
 =head1 THANK YOU
 
-Jesse Scheidlower, Jody Belka, Markus Ramberg, Mickael Joanne, Simon Flack and all the others who've helped.
+Jesse Scheidlower, Jody Belka, Markus Ramberg, Mickael Joanne, Simon Flack,
+Veljko Vidovic and all the others who've helped.
 
 =head1 LICENSE
 

diff --git a/templates/factory/macros b/templates/factory/macros
index 06f57735b99709da092c3d9a411c4185574b6393..234b8f92e512f686ec11fab6e674dedad21781b3 100644 (file)
--- a/templates/factory/macros
+++ b/templates/factory/macros
@@ -13,7 +13,9 @@ catenating the base URL, table, command, and any arguments.
 #%]
 [%
 MACRO link(table, command, additional, label) BLOCK;
-    '<a href="' _ base _ "/" _ table _ "/" _ command _ "/" _ additional _ '">';
+    SET lnk = base _ "/" _ table _ "/" _ command _ "/" _ additional;
+    lnk = lnk | uri | html;
+    '<a href="' _ lnk _ '">';
     label;
     "</a>";
 END;