Subversion Repositories wimsdev

Rev

Rev 20 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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