Rev 14349 | Rev 17309 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 14349 | Rev 17104 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | 1 | ||
2 | !if $save!=$empty |
2 | !if $save!=$empty |
- | 3 | ||
3 | !if $jquery_defined=no |
4 | !if $jquery_defined=no |
4 | d=!char 2,3 of $[100+abs(floor($dayup_expiration))] |
5 | d=!char 2,3 of $[100+abs(floor($dayup_expiration))] |
5 | m=!char 2,3 of $[100+abs(floor($monthup_expiration))] |
6 | m=!char 2,3 of $[100+abs(floor($monthup_expiration))] |
6 | y=!char 1 to 4 of $[abs(floor($yearup_expiration))] |
7 | y=!char 1 to 4 of $[abs(floor($yearup_expiration))] |
7 | up_expiration=$(y)$(m)$(d) |
8 | up_expiration=$(y)$(m)$(d) |
8 | !endif |
9 | !endif |
- | 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 |
|
9 | !read scripts/setdef.proc |
34 | !read scripts/setdef.proc |
10 | !if $up_exotitleform!=$class_exotitleform |
35 | !if $up_exotitleform!=$class_exotitleform |
11 | !! change value of wims_exotitleform for connected student |
36 | !! change value of wims_exotitleform for connected student |
12 | !readproc adm/whoconnect 1 |
37 | !readproc adm/whoconnect 1 |
13 | !for k=1 to $wims_numpartconnected |
38 | !for k=1 to $wims_numpartconnected |