Subversion Repositories wimsdev

Rev

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