Subversion Repositories wimsdev

Rev

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