Subversion Repositories wimsdev

Rev

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
!if $wims_supertype!=0 and\
4
!readproc adm/linkmodule/cdt.proc
5
    ($wims_supertype!=2 or $wims_typename!=class) and\
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
!! ------- display cdt for class (alone) ; class (in groupement) ; course (in portal) for class in  portal see next test
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
!!--------- 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
!! 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