From 08bc8db778aa4825bc8a774c21aed6b685fb89c0 Mon Sep 17 00:00:00 2001
From: Markus Lude <markus.lude@gmx.de>
Date: Tue, 25 Oct 2016 11:20:06 +0200
Subject: [PATCH] cleanup last fix

---
 wiki.pl | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/wiki.pl b/wiki.pl
index 8e329ed..cde0fbb 100755
--- a/wiki.pl
+++ b/wiki.pl
@@ -1098,16 +1098,15 @@ sub ScriptLinkChar {
 sub ScriptLink {
   my ($action, $text) = @_;
 
-  $action = &UriEscape($action);
-  return "<a href=\"$ScriptName" . &ScriptLinkChar() . "$action\">$text</a>";
+  return '<a href="' . $ScriptName . &ScriptLinkChar() . &UriEscape($action)
+         . "\">$text</a>";
 }
 
 sub ScriptLinkClass {
   my ($action, $text, $class) = @_;
 
-  $action = &UriEscape($action);
-  return "<a href=\"$ScriptName" . &ScriptLinkChar() . "$action\""
-         . ' class=' . $class . ">$text</a>";
+  return '<a href="' . $ScriptName . &ScriptLinkChar() . &UriEscape($action)
+         . '" class="' . $class . "\">$text</a>";
 }
 
 sub GetPageLinkText {
@@ -1249,12 +1248,11 @@ sub GetUploadLink {
 sub ScriptLinkTitle {
   my ($action, $text, $title) = @_;
 
-  $action = &UriEscape($action);
   if ($FreeLinks) {
     $action =~ s/ /_/g;
   }
-  return "<a href=\"$ScriptName" . &ScriptLinkChar()
-         . "$action\" title=\"$title\">$text</a>";
+  return '<a href="' . $ScriptName . &ScriptLinkChar() . &UriEscape($action)
+         . "\" title=\"$title\">$text</a>";
 }
 
 sub GetAuthorLink {