Subversion Repositories wimsdev

!distribute items $wims_read_parm into serial, prim, parm1, parm2, parm3, parm4

!set parms=!items 3 to -1 of $wims_read_parm

!if $prim=$empty or $prim iswordof def define comment

  !exit

!endif

!if $prim notwordof reload resource calcform exercise tool doc example help adm

  !changeto primitives/$prim.phtml

!endif

!goto $prim

:reload

!if $printable=yes

  !exit

!endif

!reset anchor

!if $parm2!=$empty

  !set anchor=#$parm2

!endif

!href cmd=reply&job=read$anchor $parm1

!exit

:resource

!for w in $parms

    !pedia $w

   

!next w

!exit

:calcform

!set gotcnt=!itemcnt $parms

!if $gotcnt<1

   !exit

!endif

!set gotm=$parms

!if $modu_lang iswordof en cn fr

  !set ll=$modu_lang

!endif

!default ll=en

!read popup.$ll/search.phtml noremark

!exit

:exercise

:tool

:doc

:example

:help

:adm

!changeto primitives/target.phtml