%CALCULATE{
$SET(webtopic, $LISTRAND(
%SEARCH{
"^TipTopic[0-9A-Z]"
web="%SYSTEMWEB%"
topic="TipTopic*"
scope="topic"
type="regex"
casesensitive="on"
nosearch="on"
nototal="on"
separator=", "
format="$web.$topic"
noheader="on"
}%,
%SEARCH{
"^(Custom)?TipTopic[0-9A-Z]"
web="%HOMEWEB%"
topic="CustomTipTopic*"
scope="topic"
type="regex"
casesensitive="on"
nosearch="on"
nototal="on"
separator=", "
format="$web.$topic"
noheader="on"
}%
))
$SET(pos, $FIND(., $GET(webtopic)))
$SET(web, $REPLACE($GET(webtopic), $GET(pos), 100))
$SET(topic, $REPLACE($GET(webtopic), 1, $GET(pos)))
}%%SEARCH{
"^%CALCULATE{"$GET(topic)"}%$"
web="%CALCULATE{"$GET(web)"}%"
topic="%CALCULATE{"$GET($topic)"}%"
scope="topic"
regex="on"
nosearch="on"
noheader="on"
nototal="on"
limit="1"
format="
[[$web.$topic][$pattern(.*?\-\-\-\+([^\n\r]+).*)]]
$summary(100, noheader)
[[$web.$topic][%MAKETEXT{"Read on"}%

]]"
}%