Subversion Repositories wimsdev

Rev

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