%CALC{$SET(webtopic, $LISTRAND(TWikiTip001, TWikiTip002, TWikiTip003, TWikiTip004, TWikiTip005, TWikiTip006, TWikiTip007, TWikiTip008, TWikiTip009, TWikiTip010, TWikiTip011, TWikiTip012, TWikiTip013, TWikiTip014, TWikiTip015, TWikiTip016, TWikiTip017, TWikiTip018, TWikiTip019, TWikiTip020, TWikiTip021, TWikiTip022, TWikiTip023, TWikiTip024, TWikiTip025, TWikiTip026, TWikiTip027, TWikiTip028, TWikiTip029))$SET(pos, $FIND(., $GET(webtopic)))$SET(web, $REPLACE($GET(webtopic), $GET(pos), 100))$SET(topic, $REPLACE($GET(webtopic), 1, $GET(pos)))}% %CALC{$NOP(%)SEARCH{ \"^$GET(topic)$\" web=\"$GET(web)\" scope="topic" regex="on" nosearch=\"on\" noheader=\"on\" nototal=\"on\" limit=\"1\" format=\"[[http://xdv.org/twiki/bin/view/$web/$topic][$pattern(.*?\-\-\-\+([^\n\r]+).*)]]
$summary(100, noheader) Read on \"}$NOP(%)}%