Rev 14349 | Rev 17309 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
23 | reyssat | 1 | |
2 | !if $save!=$empty |
||
17104 | guerimand | 3 | |
14349 | guerimand | 4 | !if $jquery_defined=no |
5 | d=!char 2,3 of $[100+abs(floor($dayup_expiration))] |
||
6 | m=!char 2,3 of $[100+abs(floor($monthup_expiration))] |
||
7 | y=!char 1 to 4 of $[abs(floor($yearup_expiration))] |
||
8 | up_expiration=$(y)$(m)$(d) |
||
9 | !endif |
||
17104 | guerimand | 10 | !! ---------- testind condition on expire date for compatibility sharable/sharing |
11 | !! cannot have expiration date before a sharable classe |
||
12 | !! cannot have expiration date after a sharing classe |
||
13 | test=!defof sharable_all\ |
||
14 | sharing_all in wimshome/log/classes/$wims_class/neighbors |
||
15 | !distribute line $test into sharable,sharing |
||
16 | !distribute item 0,99999999 into expmin,expmax |
||
17 | !for cl in $sharable |
||
18 | test=!defof class_expiration in wimshome/log/classes/$cl/.def |
||
19 | expmin=$[max($test,$expmin)] |
||
20 | !next cl |
||
21 | !if $up_expiration<$expmin |
||
22 | error=expdate_sharable $expmin |
||
23 | !exit |
||
24 | !endif |
||
25 | !for cl in $sharing |
||
26 | test=!defof class_expiration in wimshome/log/classes/$cl/.def |
||
27 | expmax=$[min($test,$expmax)] |
||
28 | !next cl |
||
29 | !if $up_expiration>$expmax |
||
30 | error=expdate_sharing $expmax |
||
31 | !exit |
||
32 | !endif |
||
33 | !! ---------- end sharing/sharable test |
||
12411 | bpr | 34 | !read scripts/setdef.proc |
35 | !if $up_exotitleform!=$class_exotitleform |
||
36 | !! change value of wims_exotitleform for connected student |
||
37 | !readproc adm/whoconnect 1 |
||
38 | !for k=1 to $wims_numpartconnected |
||
39 | !let s=!itemcnt $(wims_whoconnect[$k]) |
||
40 | !for ses=3 to $s |
||
41 | !setdef wims_exotitleform=$up_exotitleform in wimshome/sessions/$(wims_whoconnect[$k;$ses])/var.stat |
||
42 | !next ses |
||
43 | !next se |
||
44 | !setdef wims_exotitleform=$up_exotitleform in wimshome/sessions/$wims_session/var.stat |
||
45 | !endif |
||
46 | !defread wimshome/log/classes/$wims_class/.def |
||
47 | wims_class_log=Modify class configuration by $wims_realuser |
||
23 | reyssat | 48 | !endif |
49 | |||
14315 | guerimand | 50 | !!read adm/du $wims_home/log/classes/$wims_class |
23 | reyssat | 51 | |
52 | !if $wims_superclass!=$empty |
||
12411 | bpr | 53 | supertype=!defof class_type in wimshome/log/classes/$wims_superclass/.def |
54 | class_expiration=!defof class_expiration in wimshome/log/classes/$wims_superclass/.def |
||
55 | classdepth=!translate internal / to , in $wims_class |
||
56 | classdepth=!itemcnt $classdepth |
||
23 | reyssat | 57 | !endif |