Rev 13713 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 13713 | Rev 15267 | ||
---|---|---|---|
Line 2... | Line 2... | ||
2 | 2 | ||
3 | !! test situation for displaying cdt (other level have no access to cdt) |
3 | !! test situation for displaying cdt (other level have no access to cdt) |
4 |
|
4 | !readproc adm/linkmodule/cdt.proc |
5 |
|
5 | !if $wims_allowlink_cdt!=yes |
6 | ($wims_supertype!=4 or $wims_typename notitemof class,course) |
- | |
7 | !exit |
6 | !exit |
8 | !endif |
7 | !endif |
9 | 8 | ||
10 | !! link cdt display in any case for supervisor |
9 | !! link cdt display in any case for supervisor |
11 | !if $wims_user=supervisor |
10 | !if $wims_user=supervisor |
12 | exist_cdt=yes |
11 | exist_cdt=yes |
13 | !exit |
12 | !exit |
14 | !endif |
13 | !endif |
15 | 14 | ||
- | 15 | !! -------- check link for user |
|
- | 16 | ||
16 | !! |
17 | !! display cdt for class (alone) ; class (in groupement) ; course (in portal) for class in portal see next test |
17 | !if $wims_supertype=0 or ($wims_supertype=4 and $wims_typename=course) or ($wims_supertype=2 and $wims_typename=class) |
18 | !if $wims_supertype=0 or ($wims_supertype=4 and $wims_typename=course) or ($wims_supertype=2 and $wims_typename=class) |
18 | tmp=!defof cdt_nbdate\ |
19 | tmp=!defof cdt_nbdate\ |
19 | cdt_link\ |
20 | cdt_link\ |
20 | cdt_hide in wimshome/log/classes/$wims_class/cdt/.def |
21 | cdt_hide in wimshome/log/classes/$wims_class/cdt/.def |
21 | !distribute line $tmp into tmp2,tmp,tmp3 |
22 | !distribute line $tmp into tmp2,tmp,tmp3 |
Line 28... | Line 29... | ||
28 | ADD_cdt=$wims_name_cdt |
29 | ADD_cdt=$wims_name_cdt |
29 | !endif |
30 | !endif |
30 | !endif |
31 | !endif |
31 | 32 | ||
32 | 33 | ||
33 | !! |
34 | !! in a portal cdt display in a class if there is one open cdt in one of the course of the class (in the class cdt will be summary of all cdt course) |
34 | !if $wims_supertype=4 and $wims_typename=class |
35 | !if $wims_supertype=4 and $wims_typename=class |
35 | lt_cdt=!record 0 of wimshome/log/classes/$wims_class/courses |
36 | lt_cdt=!record 0 of wimshome/log/classes/$wims_class/courses |
36 | lt_cdt=!column 1 of $lt_cdt |
37 | lt_cdt=!column 1 of $lt_cdt |
37 | !for k in $lt_cdt |
38 | !for k in $lt_cdt |
38 | tmp=!defof cdt_nbdate,cdt_hide in wimshome/log/classes/$wims_superclass/$k/cdt/.def |
39 | tmp=!defof cdt_nbdate,cdt_hide in wimshome/log/classes/$wims_superclass/$k/cdt/.def |
Line 41... | Line 42... | ||
41 | !exit |
42 | !exit |
42 | !endif |
43 | !endif |
43 | !next k |
44 | !next k |
44 | !endif |
45 | !endif |
45 | 46 | ||
- | 47 | ! ---------- end check link for user |