Rev 12876 | Rev 13713 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
7926 | bpr | 1 | !reset exist_cdt |
33 | reyssat | 2 | |
3 | !if $wims_supertype!=0 and\ |
||
12821 | bpr | 4 | ($wims_supertype!=2 or $wims_typename!=class) and\ |
5 | ($wims_supertype!=4 or $wims_typename notitemof class,course) |
||
6 | !exit |
||
33 | reyssat | 7 | !endif |
11979 | guerimand | 8 | |
7926 | bpr | 9 | !if $wims_user=supervisor |
10 | exist_cdt=yes |
||
11979 | guerimand | 11 | !exit |
7926 | bpr | 12 | !endif |
11979 | guerimand | 13 | |
14 | !if $wims_supertype=0 or ($wims_supertype=4 and $wims_typename=course) |
||
12821 | bpr | 15 | tmp=!defof cdt_nbdate\ |
11979 | guerimand | 16 | cdt_link\ |
17 | cdt_hide in wimshome/log/classes/$wims_class/cdt/.def |
||
12885 | guerimand | 18 | !distribute line $tmp into tmp2,tmp,tmp3 |
19 | !if $tmp3=yes or $tmp2<=0 |
||
12821 | bpr | 20 | !exit |
21 | !endif |
||
22 | exist_cdt=yes |
||
23 | !if $tmp!=$empty |
||
24 | wims_name_cdt=$tmp |
||
25 | ADD_cdt=$wims_name_cdt |
||
26 | !endif |
||
33 | reyssat | 27 | !endif |
28 | |||
11979 | guerimand | 29 | !if $wims_supertype=4 and $wims_typename=class |
12821 | bpr | 30 | lt_cdt=!record 0 of wimshome/log/classes/$wims_class/courses |
31 | lt_cdt=!column 1 of $lt_cdt |
||
32 | !for k in $lt_cdt |
||
33 | tmp=!defof cdt_nbdate,cdt_hide in wimshome/log/classes/$wims_superclass/$k/cdt/.def |
||
34 | !if $(tmp[1])>0 and $(tmp[2])!=yes |
||
35 | exist_cdt=yes |
||
36 | !exit |
||
37 | !endif |
||
38 | !next k |
||
33 | reyssat | 39 | !endif |