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