Control frame added to CIC window

[helm.git] / helm / style / links_library.xsl

diff --git a/helm/style/links_library.xsl b/helm/style/links_library.xsl
index 825a06ee058abe5396b397b44f2222aafaca0d17..7befa7bac8ec33218a8966e561e40e458e908938 100644 (file)
--- a/helm/style/links_library.xsl
+++ b/helm/style/links_library.xsl
@@ -34,6 +34,7 @@
 
 <xsl:param name="getterURL" select="'http://localhost:8081/'"/>
 <xsl:param name="processorURL" select="'http://localhost:8080/helm/servlet/uwobo/'"/>
+<xsl:param name="interfaceURL" select="''"/>
 <!-- Keys contains the keys of the stylesheets to be applied following links-->
 <xsl:param name="keys" select="'C1,HC2,L'"/>
 <!-- Thkeys contains the keys of the stylesheets to be applied at the first 
@@ -71,6 +72,24 @@ step for expanding objects -->
       <xsl:with-param name="news" select="concat($news,'%3F')"/>
      </xsl:call-template>
     </xsl:when>
+    <xsl:when test="$char = '='">
+     <xsl:call-template name="quote">
+      <xsl:with-param name="s" select="substring($s,2)"/>
+      <xsl:with-param name="news" select="concat($news,'%3D')"/>
+     </xsl:call-template>
+    </xsl:when>
+    <xsl:when test="$char = '%'">
+     <xsl:call-template name="quote">
+      <xsl:with-param name="s" select="substring($s,2)"/>
+      <xsl:with-param name="news" select="concat($news,'%25')"/>
+     </xsl:call-template>
+    </xsl:when>
+    <xsl:when test="$char = ','">
+     <xsl:call-template name="quote">
+      <xsl:with-param name="s" select="substring($s,2)"/>
+      <xsl:with-param name="news" select="concat($news,'%2C')"/>
+     </xsl:call-template>
+    </xsl:when>
     <xsl:otherwise>
      <xsl:call-template name="quote">
       <xsl:with-param name="s" select="substring($s,2)"/>
@@ -106,22 +125,75 @@ step for expanding objects -->
  </xsl:call-template>
 </xsl:variable>
 
-<!-- makeURL() maps URIs into URLs -->
+<xsl:variable name="escaped-interfaceURL">
+ <xsl:call-template name="quote">
+  <xsl:with-param name="s" select="$interfaceURL"/>
+ </xsl:call-template>
+</xsl:variable>
+
+<xsl:variable name="quotedthkeys">
+ <xsl:call-template name="quote">
+  <xsl:with-param name="s" select="$thkeys"/>
+ </xsl:call-template>
+</xsl:variable>
+
+<xsl:variable name="quotedquotedthkeys">
+ <xsl:call-template name="quote">
+  <xsl:with-param name="s" select="$quotedkeys"/>
+ </xsl:call-template>
+</xsl:variable>
+
+<xsl:variable name="quotedkeys">
+ <xsl:call-template name="quote">
+  <xsl:with-param name="s" select="$keys"/>
+ </xsl:call-template>
+</xsl:variable>
 
-<xsl:variable name="header1"><xsl:value-of select="$processorURL"/>apply?keys=</xsl:variable>
-<xsl:variable name="header2">&#x26;param.naturalLanguage=<xsl:value-of select="$naturalLanguage"/>&#x26;param.annotations=<xsl:value-of select="$annotations"/>&#x26;prop.media-type=<xsl:value-of select="$media-type"/>&#x26;param.media-type=<xsl:value-of select="$media-type"/>&#x26;prop.doctype-public=<xsl:value-of select="$escaped-doctype-public"/>&#x26;param.doctype-public=<xsl:value-of select="$escaped-doctype-public"/>&#x26;prop.encoding=<xsl:value-of select="$encoding"/>&#x26;param.encoding=<xsl:value-of select="$encoding"/>&#x26;param.keys=<xsl:value-of select="$keys"/>&#x26;param.getterURL=<xsl:value-of select="$escaped-getterURL"/>&#x26;param.processorURL=<xsl:value-of select="$escaped-processorURL"/>&#x26;xmluri=<xsl:value-of select="$absPath"/></xsl:variable>
+<xsl:variable name="header0"><xsl:value-of select="$interfaceURL"/>?url=</xsl:variable>
+<xsl:variable name="header1"><xsl:value-of select="$escaped-processorURL"/>apply?keys=</xsl:variable>
+<xsl:variable name="header2">&#x26;param.naturalLanguage=<xsl:value-of select="$naturalLanguage"/>&#x26;param.annotations=<xsl:value-of select="$annotations"/>&#x26;prop.media-type=<xsl:value-of select="$media-type"/>&#x26;param.media-type=<xsl:value-of select="$media-type"/>&#x26;prop.doctype-public=<xsl:value-of select="$escaped-doctype-public"/>&#x26;param.doctype-public=<xsl:value-of select="$escaped-doctype-public"/>&#x26;prop.encoding=<xsl:value-of select="$encoding"/>&#x26;param.encoding=<xsl:value-of select="$encoding"/>&#x26;param.keys=<xsl:value-of select="$quotedkeys"/>&#x26;param.getterURL=<xsl:value-of select="$escaped-getterURL"/>&#x26;param.processorURL=<xsl:value-of select="$escaped-processorURL"/>&#x26;param.interfaceURL=<xsl:value-of select="$escaped-interfaceURL"/>&#x26;xmluri=<xsl:value-of select="$absPath"/></xsl:variable>
 
+<xsl:variable name="quotedheader1">
+ <xsl:call-template name="quote">
+  <xsl:with-param name="s" select="$header1"/>
+ </xsl:call-template>
+</xsl:variable>
+
+<xsl:variable name="quotedheader2">
+ <xsl:call-template name="quote">
+  <xsl:with-param name="s" select="$header2"/>
+ </xsl:call-template>
+</xsl:variable>
+
+<!-- makeURL() maps URIs into URLs               -->
+<!-- The target of the URL is the whole frameset -->
+
+<xsl:variable name="biquotedfixedheader">
+ <xsl:value-of select="$header0"/>
+ <xsl:value-of select="$quotedheader1"/>
+ <xsl:value-of select="$quotedquotedthkeys"/>
+ <xsl:value-of select="$quotedheader2"/>
+</xsl:variable>
+
+<!-- NOTE: thkeys are propagated, but we are sure (for now!!!) that -->
+<!-- they won't never be used.                                      -->
+<!-- type, instead, is not propagated                               -->
 <xsl:template name="makeURL">
+<xsl:param name="uri" select="''"/>
+    <xsl:value-of select="$biquotedfixedheader"/>
+    <xsl:value-of select="$uri"/>%26param.CICURI%3D<xsl:value-of select="$uri"/>
+</xsl:template>
+
+<!-- makeTheoryURL() maps URIs into URLs                  -->
+<!-- The target of the URL is only the processed document -->
+
+<xsl:template name="makeTheoryURL">
 <xsl:param name="uri" select="''"/>
 <xsl:param name="type" select="0"/>
-<xsl:param name="theory" select="'no'"/>
- <xsl:variable name="mythkeys">
-  <xsl:choose>
-   <xsl:when test="$theory = 'yes'"><xsl:value-of select="$thkeys"/></xsl:when>
-   <xsl:otherwise><xsl:value-of select="$keys"/></xsl:otherwise>
-  </xsl:choose>
- </xsl:variable>
-    <xsl:value-of select="concat(string($header1),string($mythkeys),string($header2),string($uri),'&#x26;param.CICURI=',string($uri),'&#x26;param.type=',string($type))"/>
+ <xsl:value-of select="$header1"/>
+ <xsl:value-of select="$quotedthkeys"/>
+ <xsl:value-of select="$header2"/>
+ <xsl:value-of select="$uri"/>&#x26;param.CICURI=<xsl:value-of select="$uri"/>&#x26;param.type=<xsl:value-of select="$type"/>
 </xsl:template>
 
 </xsl:stylesheet>