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])