Function: RenderPages

Renders a list of BlogPages? put into the sidebar

Parameters

AUTHOR: restrict list to pages done by this author (optional)

Implementation

%STARTINCLUDE%
~~~ %STOPALIASAREA%
%~~ DBQUERY{"TopicType=~'\bBlogPage\b' AND (form!='Blog(Page|Entry)Form' OR State='published')
~~~      %IFDEFINED{"%AUTHOR%" then="AND BlogAuthor=~'\b%AUTHOR%\b'" glue="off"}%"
~~~   hidenull="on"
~~~   header="<noautolink><div class=\"blogSideBarSection blogSideBarPages\">$n
~~~           <h1 class=\"blogSideBarHeader\">Pages$percntREDDOT{\"%WEB%.%TOPIC%\"}$percnt</h1><ul>"
~~~   format="<li><a href=\"%SCRIPTURLPATH{"view"}%/$web/$topic\"
~~~                  title=\"permalink to $topic\">
*~~                 $expand(Headline or TopicDescription)
*~~           </a> </li>"
~~~   footer="</ul></div></noautolink>"
~~~ }%
~~~ %STARTALIASAREA%
~~~
%STOPINCLUDE%