Subversion Repositories wimsdev

Rev

Rev 15268 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
max_todo=5
2
max_defaffi=10
12359 guerimand 3
!if $wims_class=$empty
4
 !exit
5
!endif
23 reyssat 6
!if ($wims_supertype<3 and $wims_typename=class) or ($wims_supertype=4 and $wims_typename=course)
15268 guerimand 7
!! cdt can be modified by supervisor only in single class / class in a groupement / course in a portal
12340 bpr 8
  cdt_supervise=yes
9
  !readdef wimshome/log/classes/$wims_class/cdt/.def
10
  !if $cdt_hide=yes
11978 guerimand 11
    hiddenlist=$wims_class
12340 bpr 12
  !endif
12359 guerimand 13
  !if $cdt_defined!=yes
12340 bpr 14
    !sh mkdir -p $wims_home/log/classes/$wims_class/cdt/def;\
23 reyssat 15
   mkdir -p $wims_home/log/classes/$wims_class/cdt/src;\
16
   mkdir -p $wims_home/log/classes/$wims_class/cdt/files;
2130 bpr 17
  !filewrite wimshome/log/classes/$wims_class/cdt/.def !set cdt_title=$wims_name_cdt\
23 reyssat 18
!set cdt_description=$empty\
19
!set cdt_defined=yes\
20
!set cdt_nbdate=0\
21
!set cdt_ltmonth=$empty
12340 bpr 22
    !set cdt_title=$wims_name_cdt
23
    !set cdt_description=$empty
24
    !set cdt_defined=yes
25
    !set cdt_nbdate=0
26
    !set cdt_ltmonth=$empty
27
  !endif
28
  !if / isin $wims_class
29
    part1=!replace internal / by , in $wims_class
30
    part2=!item -1 of $part1
31
    part1=!item 1 to -2 of $part1
32
    part1=!replace internal , by / in $part1
33
    part1=!nospace $part1
34
    !sh cd $wims_home/$wims_sesdir;\
35
     mkdir -p getfile;\
36
     cd getfile;\
37
     rm -rf cdt;\
38
     mkdir -p cdt/$part1;\
39
     cd cdt/$part1;\
40
     ln -s $wims_home/log/classes/$wims_class/cdt/files $part2;
41
  !else
23 reyssat 42
  !sh cd $wims_home/$wims_sesdir\
43
   mkdir -p getfile\
44
   cd getfile\
45
   rm -rf cdt\
46
   mkdir -p cdt\
47
   cd cdt\
48
   ln -s $wims_home/log/classes/$wims_class/cdt/files $wims_class
12340 bpr 49
  !endif
23 reyssat 50
!else
15268 guerimand 51
!! in a class of a portal, user and supervisor can see cdt of all course of the class
12340 bpr 52
  cdt_supervise=no
53
  courses=!record 0 of wimshome/log/classes/$wims_class/courses
54
  courses=!column 1 of $courses
55
  nbmonth=0
56
  nbdate=0
57
  !for prog in $courses
58
    prog=!text select 0123456789/ in $prog
59
    !readdef wimshome/log/classes/$wims_superclass/$prog/cdt/.def
60
    !if $cdt_defined!=yes
61
      !sh mkdir -p $wims_home/log/classes/$wims_superclass/$prog/cdt/def;\
62
     mkdir -p $wims_home/log/classes/$wims_superclass/$prog/cdt/src;\
63
     mkdir -p $wims_home/log/classes/$wims_superclass/$prog/cdt/files;
64
      !filewrite wimshome/log/classes/$wims_superclass/$prog/cdt/.def !set cdt_title=$wims_name_cdt\
23 reyssat 65
!set cdt_description=$empty\
66
!set cdt_defined=yes\
67
!set cdt_nbdate=0\
68
!set cdt_ltmonth=$empty
12340 bpr 69
      !set cdt_title=$wims_name_cdt
70
      !set cdt_description=$empty
71
      !set cdt_defined=yes
72
      !set cdt_nbdate=0
73
      !set cdt_ltmonth=$empty
74
    !endif
75
    nbdate=$[$cdt_nbdate+$nbdate]
76
    nbmonth=!listunion $nbmonth and $cdt_ltmonth
77
  !next prog
78
  cdt_nbdate=$nbdate
79
  cdt_nbmonth=$nbmonth
80
  !reset ltcourses hiddenlist
81
  !for cl in $courses
82
    test=!defof cdt_hide in wimshome/log/classes/$wims_superclass/$cl/cdt/.def
83
    !if $test!=yes
84
      tmp=!replace internal / by , in $cl
85
      tmp=!item -1 of $tmp
86
      ltcourses=!append word $tmp to $ltcourses
87
    !else
88
      hiddenlist=!append item $cl to $hiddenlist
89
    !endif
90
  !next cl
91
  !sh cd $wims_home/$wims_sesdir;\
92
   mkdir -p getfile\
93
   cd getfile\
94
   rm -rf cdt\
95
   mkdir -p cdt/$wims_class/\
96
   cd cdt/$wims_class\
97
   for m in $ltcourses; do\
98
    ln -s $wims_home/log/classes/$wims_class/$$m/cdt/files $$m;\
99
   done;
15268 guerimand 100
   !set cdt_title=$wims_name_cdt
101
   !set cdt_description=$empty
23 reyssat 102
!endif
103
cdt_nbmonth=!itemcnt $cdt_ltmonth
104
 
8138 guerimand 105
!! -------------------------------- enregistrement de visite du cdt
23 reyssat 106
test=!record 0 of wimshome/s2/$wims_session/cdt
107
!if $test=$empty
12340 bpr 108
  !appendfile wimshome/log/classes/$wims_class/cdt/connect.log $wims_now $httpd_REMOTE_ADDR connect $wims_user
109
  !writefile wimshome/s2/$wims_session/cdt $wims_session
8138 guerimand 110
!endif
111
 
9598 guerimand 112
!if $cdt_showyear=1
17318 guerimand 113
  dateoption=$empty
9598 guerimand 114
!else
17318 guerimand 115
  dateoption=noyear
9598 guerimand 116
!endif