Difference between revisions of "Articles"

(added "self" parameter so commentary listing works with latest w3tpl)
(removed v2 code; now transcluding index pages (which should always be latest version))
 
(6 intermediate revisions by the same user not shown)
Line 1: Line 1:
__NOTOC__<hide>
__NOTOC__<hide>
<let name=including val="1" />
<let name=including val="1" />
<func listMedia iRespKey>
  <let name=respMedia>[</let>
  <let name=sqlRespKey copy=iRespKey ucfirst />
  <let name=sqlRespKey self with="_"> </let>
  <let name=sqlMedia>(cl_to='</let>
  <let name=sqlMedia append copy=sqlRespKey />
  <let name=sqlMedia append>') AND (page_namespace=6)</let>
  <for table="qryW3_Titles_Catgs" where=$sqlMedia name=pg hide>
    <let name=med_title val="@row.pg.page_title" />
    <let name=respMedia append>&nbsp;[[:media:</let>
    <let name=respMedia append copy=med_title />
    <let name=respMedia append>|</let>
    <let name=respMedia append copy=med_title />
    <let name=respMedia append>]]</let>
  </for>
  <let name=respMedia append>&nbsp;]</let>
</func>
<func xmltag contents>
  <let name=out chr=60 />
  <let name=out append copy=contents />
  <let name=out append chr=62 />
  <echo><get name=out raw /></echo>
</func>
</hide>
</hide>
{|
{|
Line 35: Line 6:
| valign=top width=30% bgcolor="#f6f6ff" |
| valign=top width=30% bgcolor="#f6f6ff" |
==Target Articles==
==Target Articles==
<hide>
{{:Targets}}
<let name=including val="1" />
<let name=idx />
<for table="qryW3_Titles_Catgs" where="(cl_to='Data/target') AND (page_title LIKE 'Targets/%')" name=pg>
  <let name=tpg_title val="@row.pg.page_title" />
  <let name=idx inc />
  <load page=$tpg_title />
 
  <let name=title_link val="[[" />
  <let name=title_link append copy=tpg_title />
  <let name=title_link append>|</let>
  <let name=title_link append copy=title />
  <let name=title_link append val="]]" />
 
  <let name=tmp>{{PAGESINCATEGORY:</let>
  <let name=tmp append copy=keyname />
  <let name=tmp append val="}}" />
  <let name=resp_qty copy=tmp parse />
 
  <let name=resp_url>/PsyCrit:Code/show/responses?target=</let>
  <let name=resp_url append copy=keyname />
 
  <if comp=$resp_qty with=1>
    <let name=resp_desc>view response</let>
  </if><else>
    <let name=resp_desc>view</let>
    <let name=resp_desc append copy=resp_qty />
    <let name=resp_desc append> responses</let>
  </else>
  <let name=resp_link chr=60 />
  <let name=resp_link append>a title="</let>
  <if flag=resp_qty>
    <let name=resp_link append copy=resp_desc />
  </if><else>
    <let name=resp_link append>add a response</let>
  </else>
  <let name=resp_link append>" href="</let>
  <let name=resp_link append copy=resp_url />
  <let name=resp_link append>"</let>
  <let name=resp_link append chr=62 />
  <if flag=resp_qty>
    <let name=resp_link append copy=resp_qty />
  </if><else>
    <let name=resp_link append>+</let>
  </else>
  <let name=resp_link append chr=60 />
  <let name=resp_link append>/a</let>
  <let name=resp_link append chr=62 />
 
  <let name=resp_txt val="[" />
  <let name=resp_txt append copy=resp_link />
  <let name=resp_txt append val="]" />
 
  <let name=arrKey copy=author />
  <let name=arrKey append copy=year />
  <let name=outParse>
* '''</let>
  <let name=outParse append copy=author />
  <let name=outParse append>''' (</let>
  <let name=outParse append copy=year />
  <let name=outParse append>) ''</let>
  <let name=outParse append copy=title_link />
  <let name=outParse append>'' </let>
  <let name=out index=$arrKey append copy=outParse parse />
  <let name=out index=$arrKey append copy=resp_txt />
</for>
<let name=out sort />
</hide><for array=out index=idx hide>
  <echo><get name=out index=$idx raw /></echo>
</for>
 
| valign=top width=70% |
| valign=top width=70% |
==Commentaries and Reports==
==Commentaries==
<hide>
{{:Responses}}
<let name=idx />
<let name=including val=1 />
<for table="qryW3_Titles_Catgs" where="(cl_to='Data/response') AND (page_title LIKE 'Targets/%')" name=pg>
  <let name=resp_pg_title val="@row.pg.page_title" />
  <load page=$resp_pg_title />
  <let name=idx inc />
 
  <let name=out>{{faint|</let>
  <let name=out append copy=respDate />
  <let name=out append>}} '''</let>
  <let name=out append copy=respTitle />
  <let name=out append>''' ''</let>
  <let name=out append copy=respSnip />
  <let name=out append>''</let>
  <let name=out append> [[</let>
  <let name=out append copy=resp_pg_title />
  <let name=out append>|</let>
  <let name=out append copy=respRef />
  <let name=out append>]]</let>
 
  <let name=respKey copy=target />
  <let name=respKey append>/</let>
  <let name=respKey append copy=respDate />
  <let name=respKey append>_</let>
  <let name=respKey append copy=respRef />
 
  <call listMedia iRespKey=$respKey />
 
  <let name=arrKey copy=respDate />
  <let name=arrKey append copy=idx /> <!-- so we don't get two identical keys -->
  <let name=hdrArr index=$arrKey copy=respHdln />
  <let name=outArr index=$arrKey copy=out />
  <let name=outArr index=$arrKey append> </let>
  <let name=outArr index=$arrKey append copy=respMedia />
</for>
<let name=outArr sort rev />
<let name=outCol>__NOTOC____NOEDITSECTION__
{|
|-
| valign=top width=50% |</let>
<let name=idx val=0 />
<for array=outarr index=key hide>
  <let name=respHdln copy=hdrArr[$key] ucase />
  <let name=idx inc />
  <if comp=$respHdln with=$respHdlnPrev>
    <let name=out> </let>
  </if><else>
    <let name=out>
===</let>
    <let name=out append copy=respHdln />
    <let name=out append>===
</let>
    <let name=respHdlnPrev copy=respHdln />
  </else>
  <let name=outCol append copy=out />
  <let name=outCol append copy=outArr[$key] />
  <if comp=$idx with=7>
    <let name=outCol append>
| valign=top width=50% |</let>
  </if>
</for>
<let name=outCol append>
|}
</let>
</hide><get name=outCol />
-----
-----
[<small>[{{fullurl:{{PAGENAME}}|action=purge}} refresh]</small>]</noinclude>
[<small>[{{fullurl:{{PAGENAME}}|action=purge}} refresh]</small>]</noinclude>

Latest revision as of 14:49, 17 September 2012

Target Articles

<exec mod=psycrit func=List_Targets_summary />

Commentaries

<exec mod=psycrit func=List_Responses_summary />

[refresh]

Retrieved from "https://psycrit.com/w/index.php?title=Articles&oldid=2489"