From db2a8a416a36d2eee3ecf6040f81037e06ab28cb Mon Sep 17 00:00:00 2001
From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Date: Wed, 22 Mar 2023 15:17:06 +0000
Subject: [PATCH] Bug 32794: (follow-up) Consolidate shared code into one
 function (:template)

Few extra lines for the $2 exception as noted on Bugzilla.

Note: We should probably check why the utils xslt on opac and intranet
have so much differences currently.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
---
 .../intranet-tmpl/prog/en/xslt/MARC21slimUtils.xsl | 32 ++++++++++++++++++++++
 .../bootstrap/en/xslt/MARC21slimUtils.xsl          | 32 ++++++++++++++++++++++
 2 files changed, 64 insertions(+)

diff --git a/koha-tmpl/intranet-tmpl/prog/en/xslt/MARC21slimUtils.xsl b/koha-tmpl/intranet-tmpl/prog/en/xslt/MARC21slimUtils.xsl
index 470a3f247e..3ad98c8619 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/xslt/MARC21slimUtils.xsl
+++ b/koha-tmpl/intranet-tmpl/prog/en/xslt/MARC21slimUtils.xsl
@@ -690,6 +690,38 @@
         </xsl:if>
     </xsl:template>
 
+    <xsl:template name="AddMissingProtocol">
+        <xsl:param name="resourceLocation"/>
+        <xsl:param name="indicator1"/>
+        <xsl:param name="accessMethod"/>
+        <xsl:param name="delimiter" select="':'"/>
+        <xsl:if test="not(contains($resourceLocation, $delimiter))">
+            <xsl:choose>
+                <xsl:when test="$indicator1=7 and ( $accessMethod='mailto' or $accessMethod='tel' )">
+                    <xsl:value-of select="$accessMethod"/><xsl:text>:</xsl:text>
+                </xsl:when>
+                <xsl:when test="$indicator1=7">
+                    <xsl:value-of select="$accessMethod"/><xsl:text>://</xsl:text>
+                </xsl:when>
+                <xsl:when test="$indicator1=0">
+                    <xsl:text>mailto:</xsl:text>
+                </xsl:when>
+                <xsl:when test="$indicator1=1">
+                    <xsl:text>ftp://</xsl:text>
+                </xsl:when>
+                <xsl:when test="$indicator1=2">
+                    <xsl:text>telnet://</xsl:text>
+                </xsl:when>
+                <xsl:when test="$indicator1=3">
+                    <xsl:text>tel:</xsl:text>
+                </xsl:when>
+                <xsl:otherwise>
+                    <xsl:text>http://</xsl:text>
+                </xsl:otherwise>
+            </xsl:choose>
+        </xsl:if>
+    </xsl:template>
+
 </xsl:stylesheet>
 
 <!-- Stylus Studio meta-information - (c)1998-2002 eXcelon Corp.
diff --git a/koha-tmpl/opac-tmpl/bootstrap/en/xslt/MARC21slimUtils.xsl b/koha-tmpl/opac-tmpl/bootstrap/en/xslt/MARC21slimUtils.xsl
index 7e6e702064..e2aacf15d7 100644
--- a/koha-tmpl/opac-tmpl/bootstrap/en/xslt/MARC21slimUtils.xsl
+++ b/koha-tmpl/opac-tmpl/bootstrap/en/xslt/MARC21slimUtils.xsl
@@ -653,6 +653,38 @@
         </xsl:if>
     </xsl:template>
 
+    <xsl:template name="AddMissingProtocol">
+        <xsl:param name="resourceLocation"/>
+        <xsl:param name="indicator1"/>
+        <xsl:param name="accessMethod"/>
+        <xsl:param name="delimiter" select="':'"/>
+        <xsl:if test="not(contains($resourceLocation, $delimiter))">
+            <xsl:choose>
+                <xsl:when test="$indicator1=7 and ( $accessMethod='mailto' or $accessMethod='tel' )">
+                    <xsl:value-of select="$accessMethod"/><xsl:text>:</xsl:text>
+                </xsl:when>
+                <xsl:when test="$indicator1=7">
+                    <xsl:value-of select="$accessMethod"/><xsl:text>://</xsl:text>
+                </xsl:when>
+                <xsl:when test="$indicator1=0">
+                    <xsl:text>mailto:</xsl:text>
+                </xsl:when>
+                <xsl:when test="$indicator1=1">
+                    <xsl:text>ftp://</xsl:text>
+                </xsl:when>
+                <xsl:when test="$indicator1=2">
+                    <xsl:text>telnet://</xsl:text>
+                </xsl:when>
+                <xsl:when test="$indicator1=3">
+                    <xsl:text>tel:</xsl:text>
+                </xsl:when>
+                <xsl:otherwise>
+                    <xsl:text>http://</xsl:text>
+                </xsl:otherwise>
+            </xsl:choose>
+        </xsl:if>
+    </xsl:template>
+
 </xsl:stylesheet>
 
 <!-- Stylus Studio meta-information - (c)1998-2002 eXcelon Corp.
-- 
2.11.0