Rev 20 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
20 | reyssat | 1 | !distribute items $wims_read_parm into serial, prim, parm1, parm2, parm3, parm4 |
2 | !set parms=!items 3 to -1 of $wims_read_parm |
||
3 | |||
4 | !if $prim=$empty or $prim iswordof def define comment |
||
12586 | bpr | 5 | !exit |
20 | reyssat | 6 | !endif |
7 | !if $prim notwordof reload resource calcform exercise tool example help adm |
||
12586 | bpr | 8 | !changeto primitives/$prim.phtml |
20 | reyssat | 9 | !endif |
10 | !goto $prim |
||
11 | |||
12 | :reload |
||
13 | !reset anchor |
||
14 | !if $parm2!=$empty |
||
12586 | bpr | 15 | !set anchor=#$parm2 |
20 | reyssat | 16 | !endif |
17 | !href cmd=reply&job=read$anchor $parm1 |
||
18 | !exit |
||
19 | |||
20 | :resource |
||
12586 | bpr | 21 | !for w in $parms |
20 | reyssat | 22 | !pedia $w |
23 | |
||
12586 | bpr | 24 | !next w |
20 | reyssat | 25 | !exit |
26 | |||
27 | :calcform |
||
12586 | bpr | 28 | !set gotcnt=!itemcnt $parms |
29 | !if $gotcnt<1 |
||
20 | reyssat | 30 | !exit |
12586 | bpr | 31 | !endif |
32 | !set gotm=$parms |
||
33 | !read popup/search.phtml noremark |
||
20 | reyssat | 34 | !exit |
35 | |||
36 | :exercise |
||
37 | :tool |
||
38 | :example |
||
39 | :help |
||
40 | :adm |
||
41 | !changeto primitives/target.phtml |