Subversion Repositories wimsdev

Rev

Rev 2402 | Rev 12490 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

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