Difference between revisions of "Articles"

(incremental changes: new target article listing code)
(removed v2 code; now transcluding index pages (which should always be latest version))
 
(16 intermediate revisions by the same user not shown)
Line 1: Line 1:
__NOTOC__
__NOTOC__<hide>
<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 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 36: 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 hide>
  <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==
{|
{{:Responses}}
|-
| valign=top width=50% |
===EVOLUTION===
{{format-commentary-frontpage|Response:2007-Staddon.1}}
{{format-commentary-frontpage|Response:2008-Fodor-Staddon.1}}
 
===VOLUNTARINESS===
{{format-commentary-frontpage|Response:2007-Neuringer.1}}
===RATIONALITY===
{{format-commentary-frontpage|Response:2007-Basu.1}}
 
===PARAPSYCHOLOGY===
{{faint|2007-01-03}} '''Guess for Success'''. ''Parapsychology is a term coined by J. B. Rhine that covers phenomena such as telepathy the direct transmission of information from mind to mind. The landmark work is Rhine, J. B.  (1964) ''Extra-sensory perception''.  (Boston: Bruce Humphries), and a flow of other publications by Rhine’s associates and others.  In this extended article, Lockhead shows how very small deviations from randomness in the to-be-guessed sequence can give rise to better- or worse-than-chance guessing performance.'' Lockhead/Rhine: {{:Formats:Lockhead 2007-01-03}}
 
===SOCIAL SCIENCE===
{{faint|2006-10-27}} '''Ill-defined'''.  ''What is happening to political science when leading thinkers can pretend to advance knowledge by little more than re-defining words? In their article ''[[Anti-Americanisms]]'', an abstract of a forthcoming book, Katzenstein and Keohane begin thus...'' Bertrand/Keohane: {{:Formats:Bertrand 2006-10-27}}
 
|
| valign=top width=50% |
===EMOTION===
{{format-commentary-frontpage|Response:2006-Alvarado.1}}
===BEHAVIORAL ECONOMICS===
{{format-commentary-frontpage|Response:2006-Rachlin.1}}
===METACOGNITION===
{{format-commentary-frontpage|Response:2007-Foote.1}}
===CRIME AND PUNISHMENT===
{{format-commentary-frontpage|Response:2006-Churchland.1}}
===LANGUAGE PROCESSING===
{{faint|2006-09-07}} Report: '''Visual Language Processing and Additive Effects of Multiple Factors on Timed Performance: A Challenge for the Interactive Activation Framework?''' ''Two factors often have additive effects on timed performance in language tasks. Despite 25 years of work, fans of the dominant theoretical framework for language processing have yet to publicly address even a single instance of such additivity...'' Besner: {{:Formats:Besner 2006-09-08}}''
===NEUROECONOMICS===
{{faint|2006-07-16}} '''Will you take ‘neuro’ with that?'''  ''Neuroeconomics is an interesting idea that has an epistemological worm at its core... but there is no guarantee at all that the optimizing process corresponds to “explicit optimization” in which courses of action are well-defined...'' Staddon/Bernheim: {{:Formats:Staddon 2006-06-28}}''
|}
|}
==New Listing==
<hide>
<let name=including val="1" />
 
<func listMedia iRespKey>
  <let name=respMedia>[</let>
 
  <let name=sqlRespKey copy=iRespKey ucfirst />
  <let name=sqlRespKey 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>
 
<let name=idx />
<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 />
</hide><for array=outarr index=idx hide>
  <let name=respHdln copy=hdrArr[$idx] ucase />
    <if comp=$respHdln with=$respHdlnPrev>
      <let name=out></let>
    </if><else>
      <let name=out>__NOEDITSECTION__
===</let>
      <let name=out append copy=respHdln />
      <let name=out append>===</let>
      <let name=respHdlnPrev copy=respHdln />
  </else>
</let>
  <echo><get name=out /><get name=outArr index=$idx /></echo>
</for>
-----
-----
[<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"