Subversion Repositories wimsdev

Rev

Rev 5971 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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