Subversion Repositories wimsdev

Rev

Rev 14349 | Rev 17309 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
 
2
!if $save!=$empty
17104 guerimand 3
 
14349 guerimand 4
  !if $jquery_defined=no
5
    d=!char 2,3 of $[100+abs(floor($dayup_expiration))]
6
    m=!char 2,3 of $[100+abs(floor($monthup_expiration))]
7
    y=!char 1 to 4 of $[abs(floor($yearup_expiration))]
8
    up_expiration=$(y)$(m)$(d)
9
  !endif
17104 guerimand 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
12411 bpr 34
  !read scripts/setdef.proc
35
  !if $up_exotitleform!=$class_exotitleform
36
  !! change value of wims_exotitleform for connected student
37
    !readproc adm/whoconnect 1
38
    !for k=1 to $wims_numpartconnected
39
      !let s=!itemcnt $(wims_whoconnect[$k])
40
      !for ses=3 to $s
41
        !setdef wims_exotitleform=$up_exotitleform in wimshome/sessions/$(wims_whoconnect[$k;$ses])/var.stat
42
      !next ses
43
    !next se
44
    !setdef wims_exotitleform=$up_exotitleform in wimshome/sessions/$wims_session/var.stat
45
  !endif
46
  !defread wimshome/log/classes/$wims_class/.def
47
  wims_class_log=Modify class configuration by $wims_realuser
23 reyssat 48
!endif
49
 
14315 guerimand 50
!!read adm/du $wims_home/log/classes/$wims_class
23 reyssat 51
 
52
!if $wims_superclass!=$empty
12411 bpr 53
  supertype=!defof class_type in wimshome/log/classes/$wims_superclass/.def
54
  class_expiration=!defof class_expiration in wimshome/log/classes/$wims_superclass/.def
55
  classdepth=!translate internal / to , in $wims_class
56
  classdepth=!itemcnt $classdepth
23 reyssat 57
!endif