Subversion Repositories wimsdev

Rev

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 classe
 6 
  !! cannot have expiration date before a sharable class
6 
  !! cannot have expiration date after a sharing classe
 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])