* Waplocus * Waplocus
<!--parser:xtscript-->
/* INITIALIZE VARS */ 
var $linkId=1
var $path= <xt:url type="path" />/
var $offset=0
var $len=call strlen $val=$path
/* MAIN DIV*/
print <div class="RolWrap">
/* MAIN LOOP START*/
@loop
var $strt = call strpos $haystack=$path;$needle=/;$offset=$offset
var $end= call strpos $haystack=$path;$needle=/;$offset=($strt+1)
var $link=call substr $val=$path;$start=0;$length=$end
var $linktext=call substr $val=$path;$start=($strt+1);$length=($end-$strt-1)
/* EXIT IF INDEX FILE */
if $linktext == index 
goto @end
endif
/* LINKS */
if $strt >1
print <span>&raquo;</span>
endif
print <a href="$link" id="RolCont$linkId"> $linktext </a>
/* MAIN LOOP END */
var $offset=($strt+1)
var $linkId=($linkId+1)
if  $end < ($len-1)
goto @loop
endif
/* END */
@end
print </div>
<!--/parser:xtscript-->

Copy code
2017-11-03 17:22 (edited 2017-11-04 02:13 by Graham ) · (0)

Online: Guests: 1