From: Platonides <platonides@gmail.com>
Date: Mon, 21 May 2018 20:55:14 +0000 (+0200)
Subject: Se importa la función wikiencode() creada por jem
X-Git-Url: http://gitweb.wikimedia.es/?a=commitdiff_plain;h=fbbf1e8e73bfe9f95c2d985148277321115ed8d2;p=inscripciones%2Finscribirse

Se importa la función wikiencode() creada por jem
---

diff --git a/html/wiki.php b/html/wiki.php
index 35c6c3a..916017f 100644
--- a/html/wiki.php
+++ b/html/wiki.php
@@ -13,3 +13,13 @@ function parsecfg ($F) {                        # Se admiten matrices numéricas
         }
         return $D;
 }
+
+function wikiencode ($URLA, $URLB = NULL, $URLC = NULL, $MI = AZ, $MF = az) {
+        $Cambios = array (
+                "+" => "_", "%3A" => ":", "%2F" => "/",         # Inversión de urlencodes
+                "-" => "%2D"
+        );
+        $U = strtr (urlencode ($URLB), $Cambios);
+        if (substr ($U, -1) == ".") $U = substr_replace ($U, "%2E", -1, 1);             # Codificar puntos solo al final del URL
+        return $MI . $URLA . $U . $URLC . $MF;
+}