Subversion Repositories wimsdev

Rev

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