Subversion Repositories wimsdev

Rev

Rev 7926 | Rev 12821 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7926 Rev 11979
Line 3... Line 3...
3 
!if $wims_supertype!=0 and\
 3 
!if $wims_supertype!=0 and\
4 
 ($wims_supertype!=2 or $wims_typename!=class) and\
 4 
 ($wims_supertype!=2 or $wims_typename!=class) and\
5 
 ($wims_supertype!=4 or $wims_typename notitemof class,course)
 5 
 ($wims_supertype!=4 or $wims_typename notitemof class,course)
6 
 !exit
 6 
 !exit
7 
!endif
 7 
!endif
- 
 
 8 
 
8 
!if $wims_user=supervisor
 9 
!if $wims_user=supervisor
9 
  exist_cdt=yes
 10 
  exist_cdt=yes
- 
 
 11 
  !exit
10 
!endif
 12 
!endif
- 
 
 13 
 
11 
!if $wims_user=supervisor or $wims_supertype=0 or ($wims_supertype=4 and $wims_typename=class)
 14 
!if $wims_supertype=0 or ($wims_supertype=4 and $wims_typename=course)
- 
 
 15 
 tmp=!defof cdt_nbdate\
- 
 
 16 
cdt_link\
12 
 tmp=!defof cdt_link in wimshome/log/classes/$wims_class/cdt/.def
 17 
cdt_hide in wimshome/log/classes/$wims_class/cdt/.def
- 
 
 18 
 !distribute line $tmp into tmp,tmp2,tmp3
- 
 
 19 
 !if $tmp3=yes or $tmp2<=0
- 
 
 20 
  !exit
- 
 
 21 
 !endif
- 
 
 22 
 exist_cdt=yes
13 
 !if $tmp!=$empty
 23 
 !if $tmp!=$empty
14 
  wims_name_cdt=$tmp
 24 
  wims_name_cdt=$tmp
15 
  ADD_cdt=$wims_name_cdt
 25 
  ADD_cdt=$wims_name_cdt
16 
 !endif
 26 
 !endif
17 
!endif
 27 
!endif
18 
!exit
 - 
 
19 
 
 28 
 
20 
!!if ($wims_supertype=4 and $wims_typename=class)
 29 
!if $wims_supertype=4 and $wims_typename=class
21 
!! lt_cdt=!record 0 of wimshome/log/classes/$wims_class/courses
 30 
 lt_cdt=!record 0 of wimshome/log/classes/$wims_class/courses
22 
!! lt_cdt=!column 1 of $lt_cdt
 31 
 lt_cdt=!column 1 of $lt_cdt
23 
 !for k in $lt_cdt
 32 
 !for k in $lt_cdt
24 
  tmp=!defof cdt_nbdate in wimshome/log/classes/$wims_superclass/$k/cdt/.def
 33 
  tmp=!defof cdt_nbdate,cdt_hide in wimshome/log/classes/$wims_superclass/$k/cdt/.def
25 
  !if $tmp>0
 34 
  !if $(tmp[1])>0 and $(tmp[2])!=yes
26 
   exist_cdt=yes
 35 
   exist_cdt=yes
27 
   !exit
 36 
   !exit
28 
  !endif
 37 
  !endif
29 
 !next k
 38 
 !next k
30 
 !exit
 - 
 
31 
!!endif
 - 
 
32 
!!never going here
 - 
 
33 
 
 - 
 
34 
!if $wims_supertype=0 or
 - 
 
35 
 tmp=!defof cdt_nbdate\
 - 
 
36 
cdt_link in wimshome/log/classes/$wims_class/cdt/.def
 - 
 
37 
 !distribute line $tmp into tmp1,tmp2
 - 
 
38 
 !if $tmp1>0
 - 
 
39 
  exist_cdt=yes
 - 
 
40 
 !endif
 - 
 
41 
 !if $tmp2!=$empty
 - 
 
42 
  wims_name_cdt=$tmp2
 - 
 
43 
  ADD_cdt=$wims_name_cdt
 - 
 
44 
 !endif
 - 
 
45 
!endif
 39 
!endif