<!-- Video Standard -->
          <xsl:if test="videostandard!=''">
          <TR CLASS="fieldrowprevpane">
            <TD CLASS="fieldnameprevpane" NOWRAP="">
              <xsl:value-of select="/data/fld/video/videostandard/@name"/>
            </TD>
            <TD CLASS="fieldvalueprevpane" WIDTH="100%">
              <A HREF="VideoList.xsl?videostandard={videostandard}@xslparam:doctitle=Video Standard: {videostandard}" TARGET="_BLANK">
                <xsl:value-of select="videostandard"/>
              </A>
            </TD>
          </TR>
          </xsl:if>

<xsl:template name="format-videosample">
  <xsl:param name="videosample"/>
  <xsl:param name="contentsid"/>
  <xsl:variable name="videofolder">
    <xsl:call-template name="substring-before-last">
      <xsl:with-param name="input" select="$videosample/filename"/>
      <xsl:with-param name="substr" select="'\'"/>
    </xsl:call-template>
  </xsl:variable> 
  <xsl:if test="$videosample/type>0">
    <xsl:text> </xsl:text>
    <A HREF="PLAYVIDEO:{$contentsid}"><IMG SRC="PlayVideo.gif" BORDER="0"/></A>
    <xsl:text> </xsl:text>
    <A HREF="CMD:GOTOFOLDER:{$videofolder}"><IMG SRC="folder.gif" BORDER="0"/></A>
  </xsl:if>
</xsl:template>

<xsl:template name="substring-before-last">   
  <xsl:param name="input"/>
  <xsl:param name="substr"/> 
  <xsl:variable name="mid" select="ceiling(string-length($input) div 2)"/>
  <xsl:variable name="temp1" select="substring($input,1, $mid)"/>
  <xsl:variable name="temp2" select="substring($input,$mid +1)"/>
  <xsl:choose>
    <xsl:when test="$temp2 and contains($temp2,$substr)">
      <xsl:value-of select="$temp1"/>
      <xsl:call-template name="substring-before-last">
        <xsl:with-param name="input" select="$temp2"/>
        <xsl:with-param name="substr" select="$substr"/>
      </xsl:call-template>
    </xsl:when>
    <xsl:when test="contains(substring($input,$mid - string-length($substr) +1),$substr)">
      <xsl:value-of select="substring($input,1, $mid - string-length($substr))"/>
    </xsl:when>
    <xsl:when test="contains($temp1,$substr)">
      <xsl:call-template name="substring-before-last">
      <xsl:with-param name="input" select="$temp1"/>
      <xsl:with-param name="substr" select="$substr"/>
      </xsl:call-template>
    </xsl:when>
    <xsl:otherwise/>
  </xsl:choose>
</xsl:template>