From 9171de2d41d2a60b8474bc4838be587ea2d4cb92 Mon Sep 17 00:00:00 2001
From: Dan Scott <dan@coffeecode.net>
Date: Fri, 13 Dec 2019 11:00:19 -0500
Subject: [PATCH] Fix identifier for bitstreams in OAI ETDMS format

We were getting a double-prepended https:// on the identifier URL, which
was not good.

We were also getting a link to /jspui/, which resolved, but presumably
won't in the glorious future when we migrate to a different front-end,
so point at the neutral /dspace/ instead.

Signed-off-by: Dan Scott <dan@coffeecode.net>
---
 .../oai/metadataFormats/oai_etdms.xsl         | 37 ++++++++++++++++++-
 1 file changed, 36 insertions(+), 1 deletion(-)

diff --git a/dspace/config/crosswalks/oai/metadataFormats/oai_etdms.xsl b/dspace/config/crosswalks/oai/metadataFormats/oai_etdms.xsl
index 7c41b8f0721d..ff63410e7ea3 100644
--- a/dspace/config/crosswalks/oai/metadataFormats/oai_etdms.xsl
+++ b/dspace/config/crosswalks/oai/metadataFormats/oai_etdms.xsl
@@ -83,7 +83,9 @@
 			<xsl:for-each select="doc:metadata/doc:element[@name='bundles']/doc:element/doc:field[text()='ORIGINAL']">
 				<xsl:for-each select="../doc:element[@name='bitstreams']/doc:element">
 					<identifier>
-                        <xsl:value-of select="concat('https://', doc:field[@name='url']/text())"/>
+						<xsl:call-template name="replace-jspui">
+							<xsl:with-param name="text" select="doc:field[@name='url']/text()" />
+						</xsl:call-template>
 					</identifier>
 					<format>
 						<xsl:value-of select="doc:field[@name='format']/text()" />
@@ -140,4 +142,37 @@
 			</xsl:if>
 		</thesis>
 	</xsl:template>
+  <!-- XSLT 1.0 does not have a replace() function for strings -->
+  <!-- workaround from https://stackoverflow.com/questions/3067113/xslt-string-replace -->
+	<xsl:template name="string-replace-all">
+		<xsl:param name="text" />
+		<xsl:param name="replace" />
+		<xsl:param name="by" />
+		<xsl:choose>
+			<xsl:when test="$text = '' or $replace = ''or not($replace)" >
+				<!-- Prevent this routine from hanging -->
+				<xsl:value-of select="$text" />
+			</xsl:when>
+			<xsl:when test="contains($text, $replace)">
+				<xsl:value-of select="substring-before($text,$replace)" />
+				<xsl:value-of select="$by" />
+				<xsl:call-template name="string-replace-all">
+					<xsl:with-param name="text" select="substring-after($text,$replace)" />
+					<xsl:with-param name="replace" select="$replace" />
+					<xsl:with-param name="by" select="$by" />
+				</xsl:call-template>
+			</xsl:when>
+			<xsl:otherwise>
+				<xsl:value-of select="$text" />
+			</xsl:otherwise>
+		</xsl:choose>
+	</xsl:template>
+	<xsl:template name="replace-jspui">
+		<xsl:param name="text" />
+		<xsl:call-template name="string-replace-all">
+			<xsl:with-param name="text" select="$text" />
+			<xsl:with-param name="replace" select="'/jspui/'" />
+			<xsl:with-param name="by" select="'/dspace/'" />
+		</xsl:call-template>
+	</xsl:template>
 </xsl:stylesheet>