xsltsearch error

Eric 3 posts 23 karma points

Oct 08, 2012 @ 16:29

XSLTsearch ERROR

Any help on this would be much appreciated. I am using Umbraco version 4.7.1.1. I installed the XSLTsearch package and I keep getting this error when I try to save the .xslt file in Umbraco:

Error occured

System.Xml.Xsl.XslTransformException: Extension object 'urn:PS.XSLTsearch' does not contain a matching 'getTime' method that has 0 parameter(s).
at System.Xml.Xsl.Runtime.XmlExtensionFunction.Bind()
at System.Xml.Xsl.Runtime.XmlExtensionFunctionTable.Bind(String name, String namespaceUri, Int32 numArgs, Type objectType, BindingFlags flags)
at System.Xml.Xsl.Runtime.XmlQueryContext.InvokeXsltLateBoundFunction(String name, String namespaceUri, IList`1[] args)
at startTime(XmlQueryRuntime {urn:schemas-microsoft-com:xslt-debug}runtime)
at Execute(XmlQueryRuntime {urn:schemas-microsoft-com:xslt-debug}runtime)
at System.Xml.Xsl.XmlILCommand.Execute(Object defaultDocument, XmlResolver dataSources, XsltArgumentList argumentList, XmlSequenceWriter results)
at System.Xml.Xsl.XmlILCommand.Execute(Object defaultDocument, XmlResolver dataSources, XsltArgumentList argumentList, XmlWriter writer)
at System.Xml.Xsl.XslCompiledTransform.Transform(IXPathNavigable input, XsltArgumentList arguments, XmlWriter results, XmlResolver documentResolver)
at System.Xml.Xsl.XslCompiledTransform.Transform(IXPathNavigable input, XsltArgumentList arguments, TextWriter results)
at umbraco.presentation.webservices.codeEditorSave.SaveXslt(String fileName, String oldName, String fileContents, Boolean ignoreDebugging)

I did have to convert the xsltsearch.cs file to xsltsearch.vb nad was wondering if this maybe the issue

Hereis the .xslt code:

<?xml version="1.0" encoding="UTF-8" ?>

<!DOCTYPE xsl:stylesheet [

<!ENTITY nbsp " ">

]>

<xsl:stylesheet version="1.0"

xmlns:xsl="http://www.w3.org/1999/XSL/Transform"

xmlns:msxml="urn:schemas-microsoft-com:xslt"

xmlns:msxsl="urn:schemas-microsoft-com:xslt"

xmlns:umbraco.library="urn:umbraco.library"

xmlns:PS.XSLTsearch="urn:PS.XSLTsearch"

exclude-result-prefixes="msxml umbraco.library PS.XSLTsearch">

<xsl:output method="xml" omit-xml-declaration="yes" />

<!--

======================================================================

XSLTsearch.xslt

======================================================================

MIT License (http://www.opensource.org/licenses/mit-license.php)

Version 3.0.1 - For umbraco 4.5+ and new XML schema

Fixed xslt error when a previewed field had fewer than six characters

Changed default behavior to only search within current site if source node id is not specified (better for multiple sites in one installation)

Multi-site searching made easier. Now searches only within the current site if the source= parameter is not specified (better for multiple sites in one installation)

Version 3.0.2 - Fixed issue of PreviewMode="CONTEXT" in which the search term would not be highlighted if it were the last word in the content being searched

Version 3.0.3 - Removed extraneous whitespace and empty quotes from search term

Version 3.0.4 - Additional fix for PreviewMode="CONTEXT" in which the search term would not be displayed if it were the last word in the content being search and the search term were more than $maxChars from the beginning of the search field

Removed errant 'xmp' debug statement that appeared in v3.0.3

www.percipientstudios.com

======================================================================

-->

<xsl:param name="currentPage"/>

<xsl:variable name="startTime" select="PS.XSLTsearch:getTime()"/>

<xsl:variable name="currentID" select="$currentPage/@id"/>

<xsl:variable name="XSLTsearchVersion" select="'3.0.4'"/>

<xsl:variable name="dictionaryButton-Search" select="PS.XSLTsearch:getDictionaryParameter(string(umbraco.library:GetDictionaryItem('[XSLTsearch]Button-Search')), 'Search')"/>

<xsl:variable name="dictionaryDescription-Context" select="PS.XSLTsearch:getDictionaryParameter(string(umbraco.library:GetDictionaryItem('[XSLTsearch]Description-Context')), 'Context')"/>

<xsl:variable name="dictionaryDescription-ContextUnavailable" select="PS.XSLTsearch:getDictionaryParameter(string(umbraco.library:GetDictionaryItem('[XSLTsearch]Description-ContextUnavailable')), 'unavailable')"/>

<xsl:variable name="dictionaryHeading-SearchResults" select="PS.XSLTsearch:getDictionaryParameter(string(umbraco.library:GetDictionaryItem('[XSLTsearch]Heading-SearchResults')), 'Search Results')"/>

<xsl:variable name="dictionaryNavigation-Next" select="PS.XSLTsearch:getDictionaryParameter(string(umbraco.library:GetDictionaryItem('[XSLTsearch]Navigation-Next')), 'Next')"/>

<xsl:variable name="dictionaryNavigation-Previous" select="PS.XSLTsearch:getDictionaryParameter(string(umbraco.library:GetDictionaryItem('[XSLTsearch]Navigation-Previous')), 'Previous')"/>

<xsl:variable name="dictionaryPageRange-ShowingResults" select="PS.XSLTsearch:getDictionaryParameter(string(umbraco.library:GetDictionaryItem('[XSLTsearch]PageRange-ShowingResults')), 'Showing results')"/>

<xsl:variable name="dictionaryPageRange-To" select="PS.XSLTsearch:getDictionaryParameter(string(umbraco.library:GetDictionaryItem('[XSLTsearch]PageRange-To')), 'to')"/>

<xsl:variable name="dictionaryScore-Score" select="PS.XSLTsearch:getDictionaryParameter(string(umbraco.library:GetDictionaryItem('[XSLTsearch]Score-Score')), 'score')"/>

<xsl:variable name="dictionaryStats-PagesIn" select="PS.XSLTsearch:getDictionaryParameter(string(umbraco.library:GetDictionaryItem('[XSLTsearch]Stats-PagesIn')), 'pages in')"/>

<xsl:variable name="dictionaryStats-Searched" select="PS.XSLTsearch:getDictionaryParameter(string(umbraco.library:GetDictionaryItem('[XSLTsearch]Stats-Searched')), 'Searched')"/>

<xsl:variable name="dictionaryStats-Seconds" select="PS.XSLTsearch:getDictionaryParameter(string(umbraco.library:GetDictionaryItem('[XSLTsearch]Stats-Seconds')), 'seconds')"/>

<xsl:variable name="dictionarySummary-Matches" select="PS.XSLTsearch:getDictionaryParameter(string(umbraco.library:GetDictionaryItem('[XSLTsearch]Summary-Matches')), 'matches')"/>

<xsl:variable name="dictionarySummary-NoMatchesWereFoundFor" select="PS.XSLTsearch:getDictionaryParameter(string(umbraco.library:GetDictionaryItem('[XSLTsearch]Summary-NoMatchesWereFoundFor')), 'No matches were found for')"/>

<xsl:variable name="dictionarySummary-Page" select="PS.XSLTsearch:getDictionaryParameter(string(umbraco.library:GetDictionaryItem('[XSLTsearch]Summary-Page')), 'page')"/>

<xsl:variable name="dictionarySummary-Pages" select="PS.XSLTsearch:getDictionaryParameter(string(umbraco.library:GetDictionaryItem('[XSLTsearch]Summary-Pages')), 'pages')"/>

<xsl:variable name="dictionarySummary-YourSearchFor" select="PS.XSLTsearch:getDictionaryParameter(string(umbraco.library:GetDictionaryItem('[XSLTsearch]Summary-YourSearchFor')), 'Your search for')"/>

<xsl:variable name="source" select="string(PS.XSLTsearch:getParameter(string(/macro/source), '-1'))"/>

<xsl:variable name="resultsPerPage" select="string(PS.XSLTsearch:getParameter(string(/macro/resultsPerPage), '5'))"/>

<xsl:variable name="previewChars" select="string(PS.XSLTsearch:getParameter(string(/macro/previewChars), '255'))"/>

<xsl:variable name="searchBoxLocation" select="PS.XSLTsearch:uppercase(PS.XSLTsearch:getParameter(string(/macro/searchBoxLocation), 'bottom'))"/>

<xsl:variable name="previewType" select="PS.XSLTsearch:uppercase(PS.XSLTsearch:getParameter(string(/macro/previewType), 'beginning'))"/>

<xsl:variable name="showPageRange" select="PS.XSLTsearch:uppercase(PS.XSLTsearch:getParameter(string(/macro/showPageRange), '0'))"/>

<xsl:variable name="showOrdinals" select="PS.XSLTsearch:uppercase(PS.XSLTsearch:getParameter(string(/macro/showOrdinals), '0'))"/>

<xsl:variable name="showScores" select="PS.XSLTsearch:uppercase(PS.XSLTsearch:getParameter(string(/macro/showScores), '0'))"/>

<xsl:variable name="showStats" select="PS.XSLTsearch:uppercase(PS.XSLTsearch:getParameter(string(/macro/showStats), '0'))"/>

<xsl:variable name="showDebug" select="PS.XSLTsearch:uppercase(PS.XSLTsearch:getParameter(string(umbraco.library:RequestQueryString('umbDebugShowTrace')), '0'))"/>

<!-- Note: Comma-separated list of fields. The order of the search fields affects the search score and

order of the search results! Place the more important fields first, with bodyText last.

The reason is that if a search term appears in the page's title, there is a greater likelihood

that page discusses the search term at length, than it simply being mentioned in the bodyText in passing.

-->

<xsl:variable name="searchFields" select="PS.XSLTsearch:getListParameter(string(/macro/searchFields), '@nodeName,metaKeywords,metaDescription,bodyText')"/>

<!-- Note: Comma-separated list of fields. The order of the preview fields is from most preferred

to least preferred. Put the most appropriate fields first (typically, bodyText).

Note: ONLY works for properties, not attributes

-->

<xsl:variable name="previewFields" select="PS.XSLTsearch:getListParameter(string(/macro/previewFields), 'bodyText,metaDescription')"/>

<xsl:variable name="search">

<xsl:choose>

<xsl:when test="string(umbraco.library:RequestForm('search')) != ''">

<xsl:value-of select="PS.XSLTsearch:cleanSearchTerm(PS.XSLTsearch:escapeString(string(umbraco.library:RequestForm('search'))))" />

</xsl:when>

<xsl:when test="string(umbraco.library:RequestQueryString('search')) != ''">

<xsl:value-of select="PS.XSLTsearch:cleanSearchTerm(PS.XSLTsearch:escapeString(string(umbraco.library:RequestQueryString('search'))))" />

</xsl:when>

<xsl:otherwise>

<xsl:value-of select="''"/>

</xsl:otherwise>

</xsl:choose>

</xsl:variable>

<xsl:variable name="unescapedSearch" select="PS.XSLTsearch:unescapeString($search)"/>

<xsl:variable name="searchUpper" select="PS.XSLTsearch:uppercase(string($search))"/>

<xsl:template match="/">

<xsl:choose>

<xsl:when test="$search = ''">

<xsl:call-template name="search">

<xsl:with-param name="items" select="./node[1=2]"/>

</xsl:call-template>

</xsl:when>

<xsl:when test="number($source)= -1 or number($source)= 0">

<xsl:call-template name="search">

<!-- searches absolutely all pages (useful if you want to search multiple sites at once, or if you do not have all your content pages below a common homepage node in the content tree)

<xsl:with-param name="items" select="umbraco.library:GetXmlAll()/*"/>

-->

<xsl:with-param name="items" select="$currentPage/ancestor-or-self::* [@level = '1']"/>

</xsl:call-template>

</xsl:when>

<xsl:when test="number($source)=$currentID">

<xsl:call-template name="search">

<xsl:with-param name="items" select="$currentPage/ancestor-or-self::* [@isDoc and @level = 1]"/>

</xsl:call-template>

</xsl:when>

<xsl:otherwise>

<xsl:call-template name="search">

<xsl:with-param name="items" select="./descendant-or-self::*[@isDoc]"/>

</xsl:call-template>

</xsl:otherwise>

</xsl:choose>

</xsl:template>

<xsl:template name="search">

<xsl:param name="items"/>

<xsl:variable name="possibleNodes" select="$items/descendant-or-self::*[

@isDoc

and string(umbracoNaviHide) != '1'

and count(attribute::id)=1

and (umbraco.library:IsProtected(@id, @path) = false()

or umbraco.library:HasAccess(@id, @path) = true())

]"/>

<xsl:variable name="matchedNodesIdList">

<xsl:call-template name="booleanAndMatchedNodes">

<xsl:with-param name="yetPossibleNodes" select="$possibleNodes"/>

<xsl:with-param name="searchTermList" select="concat($searchUpper, ' ')"/>

</xsl:call-template>

</xsl:variable>

<xsl:variable name="matchedNodes" select="$possibleNodes[contains($matchedNodesIdList, concat(';', concat(@id, ';')))]" />

<xsl:variable name="page">

<xsl:choose>

<xsl:when test="number(umbraco.library:RequestQueryString('page')) <=1

or string(umbraco.library:RequestQueryString('page')) = ''

or string(number(umbraco.library:RequestQueryString('page'))) = 'NaN'

or (

string(umbraco.library:RequestForm('search')) != ''

and string(umbraco.library:RequestForm('search')) != string(umbraco.library:RequestQueryString('search'))

)

">

<xsl:text>1</xsl:text>

</xsl:when>

<xsl:when test="number(umbraco.library:RequestQueryString('page')) > count($matchedNodes) div $resultsPerPage">

<xsl:value-of select="ceiling(count($matchedNodes) div $resultsPerPage)"/>

</xsl:when>

<xsl:otherwise>

<xsl:value-of select="number(umbraco.library:RequestQueryString('page'))"/>

</xsl:otherwise>

</xsl:choose>

</xsl:variable>

<xsl:variable name="startMatch" select="($page - 1) * $resultsPerPage + 1"/>

<xsl:variable name="endMatch">

<xsl:choose>

<xsl:when test="($page * $resultsPerPage) > count($matchedNodes)">

<xsl:value-of select="count($matchedNodes)"/>

</xsl:when>

<xsl:otherwise>

<xsl:value-of select="$page * $resultsPerPage"/>

</xsl:otherwise>

</xsl:choose>

</xsl:variable>

<xsl:if test="$unescapedSearch !=''">

<!--

<h2>

<xsl:value-of select="$dictionaryHeading-SearchResults"/>

</h2>

-->

<xsl:if test="$searchBoxLocation='TOP' or $searchBoxLocation='BOTH'">

<xsl:attribute name="value">

<xsl:value-of select="$unescapedSearch"/>

</xsl:attribute>

</input>

<xsl:text> </xsl:text>

<xsl:attribute name="value">

<xsl:value-of select="$dictionaryButton-Search"/>

</xsl:attribute>

</input>

</div>

</xsl:if>

<xsl:choose>

<xsl:when test="count($matchedNodes) = 0">

<xsl:value-of select="$dictionarySummary-NoMatchesWereFoundFor"/>

<xsl:text> </xsl:text>

<xsl:value-of select="$unescapedSearch"/>

</strong>

</xsl:when>

<xsl:when test="count($matchedNodes) = 1">

<xsl:value-of select="$dictionarySummary-YourSearchFor"/>

<xsl:text> </xsl:text>

<xsl:value-of select="$unescapedSearch"/>

</strong>

<xsl:text> </xsl:text>

<xsl:value-of select="$dictionarySummary-Matches"/>

<xsl:text> </xsl:text>

<xsl:text> </xsl:text>

<xsl:value-of select="$dictionarySummary-Page"/>

</xsl:when>

<xsl:otherwise>

<xsl:value-of select="$dictionarySummary-YourSearchFor"/>

<xsl:text> </xsl:text>

<xsl:value-of select="$unescapedSearch"/>

</strong>

<xsl:text> </xsl:text>

<xsl:value-of select="$dictionarySummary-Matches"/>

<xsl:text> </xsl:text>

<xsl:value-of select="count($matchedNodes)"/>

</strong>

<xsl:text> </xsl:text>

<xsl:value-of select="$dictionarySummary-Pages"/>

</xsl:otherwise>

</xsl:choose>

<xsl:if test="$showPageRange != '0'">

<xsl:if test="count($matchedNodes) > 0">

<br />

<xsl:value-of select="$dictionaryPageRange-ShowingResults"/>

<xsl:text> </xsl:text>

<xsl:value-of select="$startMatch"/>

<xsl:if test="$startMatch != $endMatch">

<xsl:text> </xsl:text>

<xsl:value-of select="$dictionaryPageRange-To"/>

<xsl:text> </xsl:text>

<xsl:value-of select="$endMatch"/>

</xsl:if>

</span>

</xsl:if>

</p>

<!-- Now we need to sort the pages by score/relevance before sending them to the screen.

We'll cycle through matched nodes once to save their pageScore in a variable -->

<xsl:variable name="pageScoreList">

<xsl:text>;</xsl:text>

<xsl:for-each select="$matchedNodes">

<xsl:value-of select="generate-id(.)"/>

<xsl:text>=</xsl:text>

<xsl:call-template name="pageScore">

<xsl:with-param name="item" select="."/>

</xsl:call-template>

<xsl:text>;</xsl:text>

</xsl:for-each>

</xsl:variable>

<xsl:if test="count($matchedNodes) = 0">

<xsl:text disable-output-escaping="yes"> </xsl:text>

</xsl:if>

<xsl:for-each select="$matchedNodes">

<xsl:sort select="substring-before(substring-after($pageScoreList, concat(';',generate-id(.),'=')),';')" data-type="number" order="descending"/>

<xsl:if test="position() >= $startMatch and position() <= $endMatch">

<xsl:if test="$showOrdinals != '0'">

<xsl:value-of select="position()"/>

<xsl:text>. </xsl:text>

</span>

</xsl:if>

<xsl:value-of select="@nodeName"/>

</a>

<xsl:if test="$showScores != '0'">

<xsl:text> (</xsl:text>

<xsl:value-of select="$dictionaryScore-Score"/>

<xsl:text>: </xsl:text>

<xsl:value-of select="substring-before(substring-after($pageScoreList, concat(';',generate-id(.),'=')),';')"/>

<xsl:text>)</xsl:text>

</span>

</xsl:if>

</p>

<xsl:variable name="displayField">

<xsl:call-template name="displayFieldText">

<xsl:with-param name="item" select="."/>

<xsl:with-param name="fieldList" select="$previewFields"/>

</xsl:call-template>

</xsl:variable>

<xsl:variable name="strippedHTML" select="umbraco.library:StripHtml($displayField)"/>

<xsl:variable name="escapedData">

<xsl:choose>

<xsl:when test="string($strippedHTML) != ''">

<xsl:value-of select="$strippedHTML"/>

</xsl:when>

</xsl:choose>

</xsl:variable>

<xsl:variable name="before"><strong></xsl:variable>

<xsl:variable name="after"></strong></xsl:variable>

<xsl:if test="$previewType = 'BEGINNING' and string-length($escapedData > 0)">

<xsl:value-of select="PS.XSLTsearch:surround(PS.XSLTsearch:escapingIntelligentSubstring($escapedData, 0, $previewChars), $search, $before, $after)" disable-output-escaping="yes"/>

<xsl:if test="string-length($escapedData) > $previewChars">...</xsl:if>

</span>

</p>

</xsl:if>

<!-- or, display the actual place(s) where the search term was found and highlight them in context

providing a few words on either side of the search term. -->

<xsl:if test="$previewType = 'CONTEXT' and string-length($escapedData > 0)">

<i>

<xsl:value-of select="$dictionaryDescription-Context"/>

<xsl:text>: </xsl:text>

</i>

<xsl:variable name="context" select="PS.XSLTsearch:contextOfFind(string($escapedData), $search, 5, 5, $previewChars)"/>

<xsl:choose>

<xsl:when test="string($context) != ''">

<xsl:value-of select="PS.XSLTsearch:surround($context, $search, $before, $after)" disable-output-escaping="yes"/>

</xsl:when>

<xsl:otherwise>

<i>

<xsl:value-of select="$dictionaryDescription-ContextUnavailable"/>

</i>

</xsl:otherwise>

</xsl:choose>

</span>

</p>

</xsl:if>

</div>

</xsl:if>

</xsl:for-each>

</div>

<xsl:if test="$resultsPerPage < count($matchedNodes)">

<xsl:call-template name="searchNavigation">

<xsl:with-param name="page" select="$page"/>

<xsl:with-param name="matchedNodes" select="$matchedNodes"/>

</xsl:call-template>

</xsl:if>

<xsl:if test="$searchBoxLocation='BOTTOM' or $searchBoxLocation='BOTH' or ($searchBoxLocation!='NONE' and $unescapedSearch ='')">

<xsl:attribute name="value">

<xsl:value-of select="$unescapedSearch"/>

</xsl:attribute>

</input>

<xsl:text> </xsl:text>

<xsl:attribute name="value">

<xsl:value-of select="$dictionaryButton-Search"/>

</xsl:attribute>

</input>

</div>

</xsl:if>

<xsl:if test="$showStats != '0'">

<xsl:if test="$search !=''">

<xsl:value-of select="$dictionaryStats-Searched"/>

<xsl:text> </xsl:text>

<xsl:value-of select="count($possibleNodes)"/>

<xsl:text> </xsl:text>

<xsl:value-of select="$dictionaryStats-PagesIn"/>

<xsl:text> </xsl:text>

<xsl:value-of select="round(PS.XSLTsearch:getTimeSpan($startTime, PS.XSLTsearch:getTime())) div 1000"/>

<xsl:text> </xsl:text>

<xsl:value-of select="$dictionaryStats-Seconds"/>

</p>

</xsl:if>

<xsl:if test="$showDebug != '0'">

<xsl:text>XSLTsearch version </xsl:text>

<xsl:value-of select="$XSLTsearchVersion"/>

</p>

</xsl:if>

<xsl:if test="$unescapedSearch='' and $searchBoxLocation='NONE'">

<xsl:text> </xsl:text>

</xsl:if>

</div>

</xsl:template>

<xsl:template name="searchNavigation">

<xsl:param name="page"/>

<xsl:param name="matchedNodes"/>

<xsl:choose>

<xsl:when test="$page <= 1">

<xsl:attribute name="class">disabled</xsl:attribute>

</xsl:when>

<xsl:otherwise>

<xsl:attribute name="href">

<xsl:text>?search=</xsl:text>

<xsl:value-of select="$search"/>

<xsl:text>&page=</xsl:text>

<xsl:value-of select="$page - 1"/>

</xsl:attribute>

</xsl:otherwise>

</xsl:choose>

<xsl:text>< </xsl:text>

<xsl:value-of select="$dictionaryNavigation-Previous"/>

</a>

<xsl:text>  </xsl:text>

<xsl:call-template name="pageNumbers">

<xsl:with-param name="pageIndex" select="1"/>

<xsl:with-param name="page" select="$page"/>

<xsl:with-param name="matchedNodes" select="$matchedNodes"/>

</xsl:call-template>

<xsl:text> </xsl:text>

<xsl:choose>

<xsl:when test="$page * $resultsPerPage >= count($matchedNodes)">

<xsl:attribute name="class">disabled</xsl:attribute>

</xsl:when>

<xsl:otherwise>

<xsl:attribute name="href">

<xsl:text>?search=</xsl:text>

<xsl:value-of select="$search"/>

<xsl:text>&page=</xsl:text>

<xsl:value-of select="$page + 1"/>

</xsl:attribute>

</xsl:otherwise>

</xsl:choose>

<xsl:value-of select="$dictionaryNavigation-Next"/>

<xsl:text> ></xsl:text>

</a>

</p>

</xsl:template>

<xsl:template name="pageNumbers">

<xsl:param name="page"/>

<xsl:param name="pageIndex"/>

<xsl:param name="matchedNodes"/>

<xsl:variable name="distanceFromCurrent" select="$pageIndex - $page"/>

<xsl:choose>

<xsl:when test="$pageIndex = $page">

<xsl:value-of select="$pageIndex"/>

</strong>

<xsl:text> </xsl:text>

</xsl:when>

<xsl:when test="($distanceFromCurrent > -10 and $distanceFromCurrent < 10)">

<a>

<xsl:attribute name="href">

<xsl:text>?search=</xsl:text>

<xsl:value-of select="$search"/>

<xsl:text>&page=</xsl:text>

<xsl:value-of select="$pageIndex"/>

</xsl:attribute>

<xsl:value-of select="$pageIndex"/>

</a>

<xsl:text> </xsl:text>

</xsl:when>

</xsl:choose>

<xsl:if test="$pageIndex * $resultsPerPage < count($matchedNodes)">

<xsl:call-template name="pageNumbers">

<xsl:with-param name="pageIndex" select="$pageIndex + 1"/>

<xsl:with-param name="page" select="$page"/>

<xsl:with-param name="matchedNodes" select="$matchedNodes"/>

</xsl:call-template>

</xsl:if>

</xsl:template>

<xsl:template name="pageScore">

<xsl:param name="item"/>

<xsl:variable name="scoreA">

<xsl:call-template name="scoreAttributes">

<xsl:with-param name="item" select="$item"/>

</xsl:call-template>

</xsl:variable>

<xsl:variable name="scoreD">

<xsl:call-template name="scoreDataNodes">

<xsl:with-param name="item" select="$item[@isDoc]/*[not(@isDoc) and contains($searchFields, concat(',',name(),','))]"/>

</xsl:call-template>

</xsl:variable>

<xsl:value-of select="number($scoreA) + number($scoreD)"/>

</xsl:template>

<xsl:template name="scoreAttributes">

<xsl:param name="item"/>

<xsl:param name="index" select="1"/>

<xsl:param name="score" select="0"/>

<xsl:variable name="attributeName" select="name($item/attribute::*[position()=$index])"/>

<xsl:variable name="weighting">

<xsl:if test="contains($searchFields, concat(',@',$attributeName,','))">

<xsl:value-of select="PS.XSLTsearch:power(2, number(PS.XSLTsearch:hitCount(substring-after($searchFields,$attributeName), ','))-1)"/>

</xsl:if>

</xsl:variable>

<xsl:variable name="thisScore">

<xsl:choose>

<xsl:when test="contains($searchFields, concat(',@',$attributeName,','))">

<xsl:call-template name="scoreForBooleanSearch">

<xsl:with-param name="weighting" select="$weighting"/>

<xsl:with-param name="toSearch" select="umbraco.library:StripHtml(string($item/attribute::*[name()=$attributeName]))"/>

<xsl:with-param name="searchTermList" select="concat($search, ' ')"/>

</xsl:call-template>

</xsl:when>

<xsl:otherwise>0</xsl:otherwise>

</xsl:choose>

</xsl:variable>

<xsl:choose>

<xsl:when test="count(./attribute::*)=$index">

<xsl:value-of select="$score + $thisScore"/>

</xsl:when>

<xsl:otherwise>

<xsl:call-template name="scoreAttributes">

<xsl:with-param name="item" select="$item"/>

<xsl:with-param name="index" select="$index + 1"/>

<xsl:with-param name="score" select="$score + $thisScore"/>

</xsl:call-template>

</xsl:otherwise>

</xsl:choose>

</xsl:template>

<xsl:template name="scoreForBooleanSearch">

<xsl:param name="weighting" select="1"/>

<xsl:param name="toSearch"/>

<xsl:param name="searchTermList"/>

<xsl:param name="currentHitCount" select="0"/>

<xsl:variable name="searchTerm">

<xsl:value-of select="PS.XSLTsearch:getFirstElement($searchTermList, ' ')"/>

</xsl:variable>

<xsl:variable name="remainingSearchTermList">

<xsl:value-of select="PS.XSLTsearch:removeFirstElement($searchTermList, ' ')"/>

</xsl:variable>

<xsl:variable name="thisHitCount">

<xsl:value-of select="PS.XSLTsearch:hitCount($toSearch, string($searchTerm))"/>

</xsl:variable>

<xsl:choose>

<xsl:when test="string-length($remainingSearchTermList) > 1">

<xsl:call-template name="scoreForBooleanSearch">

<xsl:with-param name="weighting" select="$weighting"/>

<xsl:with-param name="toSearch" select="$toSearch"/>

<xsl:with-param name="searchTermList" select="$remainingSearchTermList"/>

<xsl:with-param name="currentHitCount" select="$currentHitCount + $thisHitCount"/>

</xsl:call-template>

</xsl:when>

<xsl:otherwise>

<xsl:value-of select="number($currentHitCount + $thisHitCount) * $weighting"/>

</xsl:otherwise>

</xsl:choose>

</xsl:template>

<xsl:template name="scoreDataNodes">

<xsl:param name="item"/>

<xsl:param name="score" select="0"/>

<xsl:variable name="weighting" select="PS.XSLTsearch:power(2, number(PS.XSLTsearch:hitCount(substring-after($searchFields,string(name($item))), ','))-1)"/>

<xsl:variable name="thisScore">

<xsl:choose>

<xsl:when test="contains($searchFields, concat(',',name($item),','))">

<xsl:call-template name="scoreForBooleanSearch">

<xsl:with-param name="weighting" select="$weighting"/>

<xsl:with-param name="toSearch" select="umbraco.library:StripHtml(string($item))"/>

<xsl:with-param name="searchTermList" select="concat($search, ' ')"/>

</xsl:call-template>

</xsl:when>

<xsl:otherwise>0</xsl:otherwise>

</xsl:choose>

</xsl:variable>

<xsl:variable name="remaining" select="$item/following-sibling::*[not(@isDoc) and contains($searchFields, concat(',',name(),','))]"/>

<xsl:choose>

<xsl:when test="count($remaining) = 0">

<xsl:value-of select="number($thisScore) + number($score)"/>

</xsl:when>

<xsl:otherwise>

<xsl:call-template name="scoreDataNodes">

<xsl:with-param name="item" select="$remaining[position()=1]"/>

<xsl:with-param name="score" select="number($thisScore) + number($score)"/>

</xsl:call-template>

</xsl:otherwise>

</xsl:choose>

</xsl:template>

<xsl:template name="displayFieldText">

<xsl:param name="item"/>

<xsl:param name="fieldList"/>

<xsl:variable name="fieldName">

<xsl:value-of select="PS.XSLTsearch:getFirstElement($fieldList, ',')"/>

</xsl:variable>

<xsl:variable name="remainingFields">

<xsl:value-of select="PS.XSLTsearch:removeFirstElement($fieldList, ',')"/>

</xsl:variable>

<xsl:if test="count($item/*[not(@isDoc) and name()=string($fieldName)]) = 1 and string($item/*[not(@isDoc) and name()=string($fieldName)]) != ''">

<xsl:value-of select="string($item/*[not(@isDoc) and name()=string($fieldName)])"/>

</xsl:if>

<xsl:if test="$remainingFields != ''">

<xsl:call-template name="displayFieldText">

<xsl:with-param name="item" select="$item"/>

<xsl:with-param name="fieldList" select="$remainingFields"/>

</xsl:call-template>

</xsl:if>

</xsl:template>

<xsl:template name="booleanAndMatchedNodes">

<xsl:param name="yetPossibleNodes"/>

<xsl:param name="searchTermList"/>

<xsl:variable name="searchTerm">

<xsl:value-of select="PS.XSLTsearch:unescapeString(PS.XSLTsearch:getFirstElement($searchTermList, ' '))"/>

</xsl:variable>

<xsl:variable name="remainingSearchTermList">

<xsl:value-of select="PS.XSLTsearch:removeFirstElement($searchTermList, ' ')"/>

</xsl:variable>

<xsl:variable name="searchFieldsAttribsOnly">

<xsl:variable name="sf" select="umbraco.library:Split($searchFields, ',')" />

<xsl:for-each select="$sf//value">

<xsl:if test="substring(., 1, 1) = '@'">

<xsl:text>,</xsl:text>

<xsl:value-of select="substring-after(., '@') "/>

<xsl:text>,</xsl:text>

</xsl:if>

</xsl:for-each>

</xsl:variable>

<xsl:variable name="attribNodes" select="$yetPossibleNodes[@isDoc

and attribute::*[

contains($searchFieldsAttribsOnly,concat(',', name(), ','))

and contains(PS.XSLTsearch:uppercase(PS.XSLTsearch:unescapeString(umbraco.library:StripHtml(string(.)))), $searchTerm)

]

]" />

<xsl:variable name="propertyNodes" select="$yetPossibleNodes/*[count(@isDoc) = 0

and contains($searchFields,concat(',', name(), ','))

and contains(PS.XSLTsearch:uppercase(PS.XSLTsearch:unescapeString(umbraco.library:StripHtml(string(.)))), $searchTerm)

]/.." />

<xsl:variable name="evenYetPossibleNodes" select="$attribNodes | $propertyNodes" />

<xsl:choose>

<xsl:when test="string-length($remainingSearchTermList) > 1">

<xsl:call-template name="booleanAndMatchedNodes">

<xsl:with-param name="yetPossibleNodes" select="$evenYetPossibleNodes"/>

<xsl:with-param name="searchTermList" select="$remainingSearchTermList"/>

</xsl:call-template>

</xsl:when>

<xsl:otherwise>

<xsl:variable name="nodeIDList">

<xsl:text>;</xsl:text>

<xsl:for-each select="$evenYetPossibleNodes">

<xsl:choose>

<xsl:when test="@isDoc">

<xsl:value-of select="@id"/>

</xsl:when>

<xsl:otherwise>

<xsl:value-of select="../@id"/>

</xsl:otherwise>

</xsl:choose>

<xsl:text>;</xsl:text>

</xsl:for-each>

</xsl:variable>

<xsl:value-of select="$nodeIDList"/>

</xsl:otherwise>

</xsl:choose>

</xsl:template>

</xsl:stylesheet>

AND HERE IS THE CONVERTED XSLTSEARCH.VB CODE:

Imports System

Imports System.Collections

Imports umbraco

Namespace PS

<XsltExtension()> _

Class XSLTsearch 'v3.0.4

Public Class XSLTsearch

Public Sub New()

MyBase.New()

End Sub

Public Shared Function power(ByVal x As Double, ByVal y As Double) As Double

Return Math.Pow(x, y)

End Function

Public Shared Function uppercase(ByVal s As String) As String

Return s.ToUpper

End Function

Public Shared Function escapeString(ByVal data As String) As String

If (data.IndexOf("&") > -1) Then

Dim codes As Hashtable = New Hashtable

codes.Add("&", CType(ChrW(38), Char))

codes.Add(" ", CType(ChrW(160), Char))

codes.Add("""", CType(ChrW(34), Char))

codes.Add("<", CType(ChrW(60), Char))

codes.Add(">", CType(ChrW(62), Char))

codes.Add("£", CType(ChrW(163), Char))

codes.Add("·", CType(ChrW(183), Char))

For Each de As DictionaryEntry In codes

data = data.Replace(de.Value.ToString, de.Key.ToString)

Return data

End Function

Public Shared Function unescapeString(ByVal data As String) As String

If (data.IndexOf("&") > -1) Then

Dim codes As Hashtable = New Hashtable

codes.Add("&", CType(ChrW(38), Char))

codes.Add(" ", CType(ChrW(160), Char))

codes.Add("""", CType(ChrW(34), Char))

codes.Add("<", CType(ChrW(60), Char))

codes.Add(">", CType(ChrW(62), Char))

codes.Add("£", CType(ChrW(163), Char))

codes.Add("·", CType(ChrW(183), Char))

For Each de As DictionaryEntry In codes

data = data.Replace(de.Key.ToString, de.Value.ToString)

Return data

End Function

Public Shared Function cleanSearchTerm(ByVal data As String) As String

Dim patterns As ArrayList = New ArrayList

'Order should be from more complex patterns to simple patterns

patterns.Add("' \"" \"" '")

' double quotes in single quotes

patterns.Add("'\"" \""'")

' double quotes in single quotes

patterns.Add("' \""\"" '")

' double quotes in single quotes

patterns.Add("'\""\""'")

' double quotes in single quotes

patterns.Add("\"" ' ' \""")

' single quotes in double quotes

patterns.Add("\"" '' \""")

' single quotes in double quotes

patterns.Add("\""' '\""")

' single quotes in double quotes

patterns.Add("\""''\""")

' single quotes in double quotes

patterns.Add("\"" \""")

' double quotes with a space

patterns.Add("' '")

' single quotes with a space

patterns.Add("\""\""")

' empty double quotes

patterns.Add("''")

' empty single quotes

data = System.Text.RegularExpressions.Regex.Replace(data, "\s+", " ")

'replace all kinds of whitespace with a single space

data = data.Trim

For Each pattern As String In patterns

data = data.Replace(pattern, "")

End Function

Public Function escapingIntelligentSubstring(ByVal data As String, ByVal unescapedStart As Integer, ByVal unescapedLength As Integer) As String

' zero-based, so reduce the length by one

unescapedLength = (unescapedLength - 1)

Dim unescapedPosition As Integer = 0

Dim escapedPosition As Integer = 0

Dim escapedStart As Integer = -1

data = data.TrimStart

While (escapedPosition < data.Length)

' left-trim of spaces and non-breaking-spaces

If ((escapedStart = -1) _

AndAlso (unescapedPosition >= unescapedStart)) Then

If ((data.Substring(escapedPosition, 1) <> " ") _

AndAlso (data.Substring(escapedPosition, 1) <> "&")) Then

' save the "escaped" starting point, taking into account escaped characters

escapedStart = escapedPosition

unescapedPosition = 0

End If

If ((data.Substring(escapedPosition, 1) = "&") _

AndAlso (data.IndexOf(";", escapedPosition) > -1)) Then

' look for an escaped character

Dim escapedCharacter As String = data.Substring(escapedPosition, ((data.IndexOf(";", escapedPosition) - escapedPosition) _

+ 1))

If System.Text.RegularExpressions.Regex.Match(escapedCharacter, "&[A-Za-z]{2,6};").Success Then

escapedPosition = (escapedPosition + escapedCharacter.Length)

Else

escapedPosition = (escapedPosition + 1)

End If

Else

escapedPosition = (escapedPosition + 1)

End If

If ((escapedStart > -1) _

AndAlso ((unescapedPosition - unescapedStart) _

= unescapedLength)) Then

Exit While

End If

unescapedPosition = (unescapedPosition + 1)

End While

If (escapedStart = -1) Then

Return ""

End If

If (escapedPosition < data.Length) Then

Return (data.Substring(escapedStart, (escapedPosition - escapedStart)) + "...")

Else

Return data.Substring(escapedStart, (escapedPosition - escapedStart))

End If

End Function

Public Shared Function hitCount(ByVal data As String, ByVal find As String) As Double

If ((data Is Nothing) _

OrElse ((data = "") _

OrElse ((find Is Nothing) _

OrElse (find = "")))) Then

Return 0

End If

Dim after As String = data.ToLower.Replace(find.ToLower, "")

Return ((data.Length - after.Length) _

/ find.Length)

End Function

Public Shared Function indexOfMany(ByVal search As String, ByVal find() As String) As Integer

Dim foundIndex As Integer = search.Length

Dim found As Boolean = False

For Each toFind As String In find

Dim res As Integer = search.ToUpper.IndexOf(toFind.ToUpper)

If (res <> -1) Then

found = True

foundIndex = Math.Min(foundIndex, res)

End If

Return -1

End If

Return foundIndex

End Function

Public Shared Function contextOfFind(ByVal data As String, ByVal find As String, ByVal wordsBefore As Integer, ByVal wordsAfter As Integer, ByVal maxChars As Integer) As String

' NOTE: This only makes sense if the searchFields and previewFields are identical.

' Otherwise, you can find a match but not see its context.

Try

If (data.Length = 0) Then

Return ""

End If

Dim findList As String = getFirstElement(find, " ")

find = removeFirstElement(find, " ")

While (find <> "")

findList = (findList + ("|" + getFirstElement(find, " ").ToUpper))

find = removeFirstElement(find, " ")

End While

Dim findPhrases() As String = findList.Split(Microsoft.VisualBasic.ChrW(124))

Dim remaining As String = (data + " ")

'v3.0.2 added space at end of data to resolve http://our.umbraco.org/projects/website-utilities/xsltsearch/xsltsearch-bugs/22868-The-very-last-word-and-previewing-it

Dim output As String = ""

Dim after() As String = New String((0) - 1) {}

While ((output.Length < maxChars) _

AndAlso (remaining <> ""))

Dim findIndex As Integer = indexOfMany(remaining, findPhrases)

If (findIndex = -1) Then

Exit While

End If

' 3.0.4 bug fix when preview term is last word in the search field, with no space at the end, and search term is more than maxChars from the start of the search field

remaining = (remaining + " ")

findIndex = remaining.IndexOf(" ", findIndex)

If (findIndex = -1) Then

output = (output + remaining)

Exit While

End If

Dim before() As String = remaining.Substring(0, findIndex).Split(Microsoft.VisualBasic.ChrW(32))

If (before.Length > wordsBefore) Then

output = (output + " ... ")

End If

output = (output + String.Join(" ", before, Math.Max(0, (before.Length - wordsBefore)), Math.Min(before.Length, wordsBefore)))

remaining = remaining.Substring(findIndex)

after = remaining.Split(Microsoft.VisualBasic.ChrW(32))

Dim afterText As String = String.Join(" ", after, 0, Math.Min(after.Length, wordsAfter))

Dim nextFindIndex As Integer = indexOfMany(afterText, findPhrases)

If (nextFindIndex > -1) Then

nextFindIndex = afterText.IndexOf(" ", nextFindIndex)

End If

While (nextFindIndex > -1)

output = (output + afterText.Substring(0, nextFindIndex))

remaining = remaining.Substring(nextFindIndex)

after = remaining.Split(Microsoft.VisualBasic.ChrW(32))

afterText = String.Join(" ", after, 0, Math.Min(after.Length, wordsAfter))

nextFindIndex = indexOfMany(afterText, findPhrases)

If (nextFindIndex > -1) Then

nextFindIndex = afterText.IndexOf(" ", nextFindIndex)

End If

End While

output = (output + afterText)

remaining = remaining.Substring(afterText.Length)

End While

maxChars = (after.Length > wordsAfter)

'TODO: Warning!!!, inline IF is not supported ?

output = output.Trim

While ((output.Length > maxChars) _

AndAlso (output.LastIndexOf(" ") > 0))

output = output.Substring(0, output.LastIndexOf(" "))

End While

If (after.Length > wordsAfter) Then

output = (output + " ...")

End If

Return output

Catch ex As System.Exception

Return ""

End Try

End Function

Public Shared Function surround(ByVal data As String, ByVal find As String, ByVal before As String, ByVal after As String) As String

' searches for find within data, then surrounds it with before and after tags

' note: replace with the actual text found, to preserve the case

Dim beforeSpecial As String = "\x0001"

Dim afterSpecial As String = "\x0002"

Dim nextWord As String = getFirstElement(find, " ")

Dim remainingWords As String = find

While (nextWord <> "")

Dim index As Integer = data.ToLower.IndexOf(nextWord.ToLower)

While (index > -1)

Dim replacement As String = (beforeSpecial _

+ (data.Substring(index, nextWord.Length) + afterSpecial))

data = (data.Substring(0, index) _

+ (replacement + data.Substring((index + nextWord.Length))))

index = data.ToLower.IndexOf(nextWord.ToLower, (index + replacement.Length))

End While

remainingWords = removeFirstElement(remainingWords, " ")

nextWord = getFirstElement(remainingWords, " ")

End While

data = data.Replace(beforeSpecial, before).Replace(afterSpecial, after)

Return data

End Function

Public Shared Function getTime() As Long

' get current time

Return DateTime.Now.Ticks

End Function

Public Shared Function getTimeSpan(ByVal startTime As Long, ByVal stopTime As Long) As Double

' return time span in milliseconds

Return TimeSpan.FromTicks((stopTime - startTime)).TotalMilliseconds

End Function

Public Shared Function getFirstElement(ByVal delimitedList As String, ByVal delimiter As String) As String

' strip all leading delimiters

While (delimitedList.IndexOf(delimiter) = 0)

delimitedList = delimitedList.Remove(0, delimiter.Length).Trim

End While

If (delimitedList.Length = 0) Then

Return ""

End If

' searching on a phrase

If ((delimiter = " ") _

AndAlso ((delimitedList.Substring(0, 1) = "'") _

AndAlso (delimitedList.IndexOf("'", 1) > -1))) Then

Return delimitedList.Substring(1, (delimitedList.IndexOf("'", 1) - 1))

End If

If ((delimiter = " ") _

AndAlso ((delimitedList.Substring(0, 1) = "\""") _

AndAlso (delimitedList.IndexOf("\""", 1) > -1))) Then

Return delimitedList.Substring(1, (delimitedList.IndexOf("\""", 1) - 1))

End If

' only one element

If (delimitedList.IndexOf(delimiter) = -1) Then

Return delimitedList.Trim

End If

' return first element

Return delimitedList.Split(delimiter.ToCharArray())(0).Trim

End Function

Public Shared Function removeFirstElement(ByVal delimitedList As String, ByVal delimiter As String) As String

Dim firstElement As String = getFirstElement(delimitedList, delimiter)

' handle phrase delimiters

If ((delimiter = " ") _

AndAlso ((delimitedList.Substring(0, 1) = "'") _

AndAlso (delimitedList.IndexOf("'", 1) > -1))) Then

Return delimitedList.Remove(0, (firstElement.Length + 2)).Trim

End If

If ((delimiter = " ") _

AndAlso ((delimitedList.Substring(0, 1) = "\""") _

AndAlso (delimitedList.IndexOf("\""", 1) > -1))) Then

Return delimitedList.Remove(0, (firstElement.Length + 2)).Trim

End If

While (delimitedList.IndexOf(delimiter) = 0)

delimitedList = delimitedList.Remove(0, delimiter.Length).Trim

End While

Return delimitedList.Remove(0, firstElement.Length).Trim

End Function

Public Shared Function getDictionaryParameter(ByVal value As String, ByVal defaultValue As String) As String

If (value = "") Then

Return defaultValue

Else

Return value

End If

End Function

Public Shared Function getParameter(ByVal value As String, ByVal defaultValue As String) As String

If (value = "") Then

Return defaultValue

Else

Return value.Replace(" ", "")

End If

End Function

Public Shared Function getListParameter(ByVal value As String, ByVal defaultValue As String) As String

' remove all spaces

value = value.Replace(" ", "")

defaultValue = defaultValue.Replace(" ", "")

If (value = "") Then

Return ("," _

+ (defaultValue + ","))

Else

Return ("," _

+ (value + ","))

End If

End Function

End Class

End Namespace

Any ideas?

Copy Link

Chriztian Steinmeier 2726 posts 8320 karma points MVP 4x admin c-trib

Oct 08, 2012 @ 22:47

Hi Eric,

Any specific reason for converting the application code to Visual Basic ?

I've used XSLTsearch on many sites (including Umbraco 4.7.1.1) without having to do anything.

The error message clearly says that the processor was unable to find a version of the getTime() method/function that takes no arguments. So, e.g.: Is a Public Shared Function in VB the same as a public static method in C# ? (Ihave no clue, but looking at the code, that would be the place I'd start when debugging)

/Chriztian

Copy Link

is working on a reply...

This forum is in read-only mode while we transition to the new forum.

You can continue this topic on the new forum by tapping the "Continue discussion" link below.

Flag this post as spam?

XSLTsearch ERROR