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
|
!if $save!=$empty
up_expiration=!text select char 0123456789 in $up_expiration
!read scripts/setdef.proc
!! ---------- testind condition on expire date for compatibility sharable/sharing
!! cannot have expiration date before a sharable class
!! cannot have expiration date after a sharing class
test=!defof sharable_all\
sharing_all in wimshome/log/classes/$wims_class/neighbors
!distribute line $test into sharable,sharing
!distribute item 0,99999999 into expmin,expmax
!for cl in $sharable
test=!defof class_expiration in wimshome/log/classes/$cl/.def
expmin=$[max($test,$expmin)]
!next cl
!if $up_expiration<$expmin
error=expdate_sharable $expmin
!exit
!endif
!for cl in $sharing
test=!defof class_expiration in wimshome/log/classes/$cl/.def
expmax=$[min($test,$expmax)]
!next cl
!if $up_expiration>$expmax
error=expdate_sharing $expmax
!exit
!endif
!! ---------- end sharing/sharable test
!if $up_exotitleform!=$class_exotitleform
!! change value of wims_exotitleform for connected student
!readproc adm/whoconnect 1
!for k=1 to $wims_numpartconnected
!let s=!itemcnt $(wims_whoconnect[$k])
!for ses=3 to $s
!setdef wims_exotitleform=$up_exotitleform in wimshome/sessions/$(wims_whoconnect[$k;$ses])/var.stat
!next ses
!next se
!setdef wims_exotitleform=$up_exotitleform in wimshome/sessions/$wims_session/var.stat
!endif
!defread wimshome/log/classes/$wims_class/.def
wims_class_log=Modify class configuration by $wims_realuser
!endif
!!read adm/du $wims_home/log/classes/$wims_class
!if $wims_superclass!=$empty
supertype=!defof class_type in wimshome/log/classes/$wims_superclass/.def
class_expiration=!defof class_expiration in wimshome/log/classes/$wims_superclass/.def
classdepth=!translate internal / to , in $wims_class
classdepth=!itemcnt $classdepth
!endif
|
