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