Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
18479 czzmrn 1
!debug siamo qui
2
 
20 reyssat 3
!if \ isin $parm1
14432 bpr 4
  !for p in 1
5
    !set parm$p=!slashsubst $(parm$p)
6
  !next p
20 reyssat 7
!endif
17978 bpr 8
 
20 reyssat 9
!set add=$parm1
18406 bpr 10
!set parms=!slashsubst $(parms)
20 reyssat 11
!if ? isin $add
12
  !set add=!translate internal ? to , in $add
13
  !set add=!item 2 of $add
14
!endif
15
!set eq==
17978 bpr 16
!!for exercices and tools in a class, syntax of the form numero_sheet/numero_exercise
20 reyssat 17
!if $eq notin $add and $wims_class>0 and / isin $add \
14432 bpr 18
    and $prim iswordof exercise tool
12785 bpr 19
  !set add=!translate internal / to $ $ in $add
20
  !distribute words $add into sh_,ex_
21
  !distribute lines $(m_infoexo$ex_) into m_,p_,a_,b_,t_,d_
22
  !set prompt=!item 2 to -1 of $parms
23
  !default prompt=$t_
24
  !href session=$wims_session&cmd=new&module=$m_&worksheet=$sh_&$p_ $prompt
25
  !exit
20 reyssat 26
!endif
27
!set add=!translate internal & to $ $ in $add
28
!set n=!wordcnt $add
29
!reset nadd,lmod,lses,lcmd
30
!for i=1 to $n
12785 bpr 31
  !set l=!word $i of $add
32
  !set ll=!translate = to , in $l
33
  !distribute items $ll into l1,l2
34
  !if $l1=cmd and $l2 iswordof intro help close
20 reyssat 35
    !set lcmd=$l2
12785 bpr 36
  !endif
37
  !if $l1=module
38
    !set lmod=$l2
39
  !endif
40
  !if $l1 notwordof module cmd session
41
    !set nadd=$nadd $l
42
  !endif
20 reyssat 43
!next i
44
!default lmod=home
45
!default lcmd=new
46
!set nadd=!translate internal $ $ to & in $nadd
47
!set prompt=!item 2 to -1 of $parms
48
!default prompt=!module title $lmod
49
 
50
!default prompt=Unknown activity
51
 
16655 guerimand 52
!if $prim=tool
53
  !href target=wims_tool module=$lmod&cmd=$lcmd$nadd $prompt
54
!else
55
  !href module=$lmod&cmd=$lcmd$nadd $prompt
17870 bpr 56
!endif