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 |