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 |