From fc6bc7a48e5d5d7eaedb22497b1c6c8b8193850c Mon Sep 17 00:00:00 2001
From: Sebastian Riedel <sri@labs.kraih.com>
Date: Fri, 17 Sep 2004 16:12:59 +0000
Subject: [PATCH] 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
---
lib/Maypole.pm | 3 ++-
templates/factory/macros | 4 +++-
2 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index 11fbe52..53e9be5 100644
--- 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 06f5773..234b8f9 100644
--- 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;
--
2.39.5