Rev 17309 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 17309 | Rev 17849 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | 1 | ||
2 | !if $save!=$empty |
2 | !if $save!=$empty |
- | 3 | !read scripts/setdef.proc |
|
3 | up_expiration=!text select char 0123456789 in $up_expiration |
4 | up_expiration=!text select char 0123456789 in $up_expiration |
4 | !! ---------- testind condition on expire date for compatibility sharable/sharing |
5 | !! ---------- testind condition on expire date for compatibility sharable/sharing |
5 | !! cannot have expiration date before a sharable |
6 | !! cannot have expiration date before a sharable class |
6 | !! cannot have expiration date after a sharing |
7 | !! cannot have expiration date after a sharing class |
7 | test=!defof sharable_all\ |
8 | test=!defof sharable_all\ |
8 | sharing_all in wimshome/log/classes/$wims_class/neighbors |
9 | sharing_all in wimshome/log/classes/$wims_class/neighbors |
9 | !distribute line $test into sharable,sharing |
10 | !distribute line $test into sharable,sharing |
10 | !distribute item 0,99999999 into expmin,expmax |
11 | !distribute item 0,99999999 into expmin,expmax |
11 | !for cl in $sharable |
12 | !for cl in $sharable |
Line 23... | Line 24... | ||
23 | !if $up_expiration>$expmax |
24 | !if $up_expiration>$expmax |
24 | error=expdate_sharing $expmax |
25 | error=expdate_sharing $expmax |
25 | !exit |
26 | !exit |
26 | !endif |
27 | !endif |
27 | !! ---------- end sharing/sharable test |
28 | !! ---------- end sharing/sharable test |
28 | !read scripts/setdef.proc |
- | |
29 | !if $up_exotitleform!=$class_exotitleform |
29 | !if $up_exotitleform!=$class_exotitleform |
30 | !! change value of wims_exotitleform for connected student |
30 | !! change value of wims_exotitleform for connected student |
31 | !readproc adm/whoconnect 1 |
31 | !readproc adm/whoconnect 1 |
32 | !for k=1 to $wims_numpartconnected |
32 | !for k=1 to $wims_numpartconnected |
33 | !let s=!itemcnt $(wims_whoconnect[$k]) |
33 | !let s=!itemcnt $(wims_whoconnect[$k]) |