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 example help adm

 !changeto primitives/$prim.phtml

!endif

!goto $prim

:reload

!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

 !read popup/search.phtml noremark

!exit

:exercise

:tool

:example

:help

:adm

!changeto primitives/target.phtml