1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
!if $class_type notwordof 2 3 4
error=bad_context
!exit
!endif
!!FIXME propagation for class password should not be done
!! allows inscription of teachers in portal and of participants in classes
propall=secure,colors,css,logo,theme,theme_icon,level,security,supass,\
exolog,ent,oefdefault,sendmailteacher,authentification,institution
propagate=!listintersect $propagate and $propall
!if $propagate=$empty or $confirm=$empty
!exit
!endif
subclasses=!sh cd $wims_home/log/classes/$wims_class\
find . -type d -name '[0-9]*'
!if $class_typename=program and $class_superclass!=$empty
courses=!sh cd $wims_home/log/classes/$wims_class\
cat courses icourses 2>/dev/null | cut -d, -f1 | grep .
courses=!words2items $courses
courses=!makelist $class_superclass/x for x in $courses
!endif
!if $subclasses=$empty and $courses=$empty
!exit
!endif
propag=!replace item colors by bgcolor,bgimg,refcolor,ref_menucolor,\
ref_button_help_color,ref_button_help_bgcolor,ref_button_color,ref_button_bgcolor \
scorecolor,actcolor in $propagate
propag=!replace item logo by logo,logoside in $propag
propag=!replace item exolog by exolog,examlog in $propag
!! cas_auth are not useful in subclass
!! authidp is useful for the interface
propag=!replace item auth by connections,authidp,php_auth in $propag
propag=!replace item authentification by connections,authidp,php_auth in $propag
!if security isitemof $propag
propag=!listcomplement security in $propag
security=!record 0 of wimshome/log/classes/$wims_class/.security
propag_security=yes
!else
propag_security=no
!endif
!if supass isitemof $propag
propag=!listcomplement supass in $propag
supass=!defof user_password in wimshome/log/classes/$wims_class/supervisor
propag_supass=yes
!else
propag_supass=no
!endif
!if oefdefault isitemof $propag
propag=!listcomplement oefdefault in $propag
propag_oefdefault=yes
!else
propag_oefdefault=no
!endif
!defread wimshome/log/classes/$wims_class/.def
setup=
!!set class_authidp=php;php
!!!set class_connections=+phpidp/available+
!for s in $propag
setup=!append line !set class_$s=$(class_$s) to $setup
!next s
subclasses=!words2items $subclasses
subclasses=!makelist $wims_class/x for x in $subclasses
!if $courses!=$empty
subclasses=!append item $courses to $subclasses
!endif
css=!record 0 of wimshome/log/classes/$wims_class/css
!for s in $subclasses
test=!defof class_defined in wimshome/log/classes/$s/.def
!if $test=yes
!setdef $setup in wimshome/log/classes/$s/.def
!if css isitemof $propagate
!writefile wimshome/log/classes/$s/css $css
!endif
!if $propag_security=yes
!writefile wimshome/log/classes/$s/.security $security
!endif
!if $propag_supass=yes
!setdef !set user_password=$supass in wimshome/log/classes/$s/supervisor
!endif
!if $propag_oefdefault=yes
!setdef !set user_qnum=$wims_oefdefault_qnum\
!set user_qcmlevel=$wims_oefdefault_qcmlevel\
!set user_scoredelay=$wims_oefdefault_scoredelay\
!set user_qcmpresent=$wims_oefdefault_qcmpresent\
!set user_givefeed=$wims_oefdefault_feed\
!set user_check=$wims_oefdefault_check_\
!set user_givegood=$wims_oefdefault_good\
!set user_givehint=$wims_oefdefault_hint\
!set user_sepow=$wims_oefdefault_sepow\
!set user_expow=$wims_oefdefault_expow\
!set user_precw=$wims_oefdefault_precw\
in wimshome/log/classes/$s/supervisor
!endif
!endif
!next s
!exit
rajouter ce qui se trouve dans le fichier supervisor
!setdef !set user_qnum=$nw_qnum\
!set user_qcmlevel=$nw_qcmlevel\
!set user_scoredelay=$nw_scoredelay\
!set user_qcmpresent=$nw_qcmpresent\
!set user_givefeed=$nw_givefeed\
!set user_check=$nw_check_\
!set user_givegood=$nw_givegood\
!set user_givehint=$nw_givehint\
!set user_sepow=$nw_sepow\
!set user_expow=$nw_expow\
!set user_precw=$nw_precw\
in wimshome/log/classes/$wims_class/supervisor
|
