Subversion Repositories wimsdev

Rev

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

Rev 5971 Rev 12490
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
9 
 !changeto primitives/$prim.phtml
 9 
  !changeto 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 
 !if $modu_lang iswordof en cn fr
 37 
!if $modu_lang iswordof en cn fr
38 
  !set ll=$modu_lang
 38 
  !set ll=$modu_lang
39 
 !endif
 39 
!endif
40 
 !default ll=en
 40 
!default ll=en
41 
 !read popup.$ll/search.phtml noremark
 41 
!read popup.$ll/search.phtml noremark
42 
!exit
 42 
!exit
43 
 
 43 
 
44 
:exercise
 44 
:exercise
45 
:tool
 45 
:tool
46 
:doc
 46 
:doc