Difference between revisions of "HypertWiki:Code/lib/data"

From HypertWiki
Jump to navigation Jump to search
(clear detection flag before loading page)
(reverted ShowRecentBlogEntries to working version)
Line 167: Line 167:
</func>
</func>


<func ShowRecentBlogEntries max iTopic>
<func ShowRecentBlogEntries max>
   <let name=idx />
   <let name=idx />
   <let name=including val=1 />
   <let name=including val=1 />
 
   <for table="qryW3_Titles_Catgs" where="(cl_to='Data/blog/post')" sort="page_title DESC" limit=$max name=pg hide>
   <let name=topic farg=iTopic />
  <let name=topic self with="_"> </let>
 
  <let name=sqlWhere>(cl_to='</let>
  <let name=sqlWhere append copy=topic />
  <let name=sqlWhere append>')</let>
  <let name=noLoad val=1 />
 
  <for table="qryW3_Titles_Catgs" where=$sqlWhere sort="page_title DESC" limit=$max name=pg hide>
     <let name=pg_nspace_code>{{ns:</let>
     <let name=pg_nspace_code>{{ns:</let>
     <let name=pg_nspace_code append val=@row.page_namespace />
     <let name=pg_nspace_code append val=@row.page_namespace />
Line 188: Line 179:
     <let name=pg_name append>:</let>
     <let name=pg_name append>:</let>
     <let name=pg_name append copy=pg_title />
     <let name=pg_name append copy=pg_title />
     <load page=$pg_name />
     <let name=idx inc />
    <if flag=data[Title]>
    <call GetBlogEntryBrief />
      <let name=idx inc />
    <let name=e.rtn append copy=e.out />
      <call GetBlogEntryBrief />
     <let name=data />
      <let name=e.rtn append copy=e.out />
     </let>
   </for>
   </for>
</func>
</func>


<func ShowRecentBlogEntriesFull max>
<func ShowRecentBlogEntriesFull max>

Revision as of 11:14, 30 April 2010

wiki file: https://hypertwins.org/mw/index.php?title=HypertWiki:Code/lib/data&oldid=13428