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