Subversion Repositories wimsdev

Rev

Rev 17104 | Rev 17849 | 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
17309 guerimand 3
  up_expiration=!text select char 0123456789 in $up_expiration
17104 guerimand 4
  !! ---------- testind condition on expire date for compatibility sharable/sharing
5
  !! cannot have expiration date before a sharable classe
6
  !! cannot have expiration date after a sharing classe
7
  test=!defof sharable_all\
8
sharing_all in wimshome/log/classes/$wims_class/neighbors
9
  !distribute line $test into sharable,sharing
10
  !distribute item 0,99999999 into expmin,expmax
11
  !for cl in $sharable
12
    test=!defof class_expiration in wimshome/log/classes/$cl/.def
13
    expmin=$[max($test,$expmin)]
14
  !next cl
15
  !if $up_expiration<$expmin
16
    error=expdate_sharable $expmin
17
    !exit
18
  !endif
19
  !for cl in $sharing
20
    test=!defof class_expiration in wimshome/log/classes/$cl/.def
21
    expmax=$[min($test,$expmax)]
22
  !next cl
23
  !if $up_expiration>$expmax
24
    error=expdate_sharing $expmax
25
    !exit
26
  !endif
27
  !! ---------- end sharing/sharable test
12411 bpr 28
  !read scripts/setdef.proc
29
  !if $up_exotitleform!=$class_exotitleform
30
  !! change value of wims_exotitleform for connected student
31
    !readproc adm/whoconnect 1
32
    !for k=1 to $wims_numpartconnected
33
      !let s=!itemcnt $(wims_whoconnect[$k])
34
      !for ses=3 to $s
35
        !setdef wims_exotitleform=$up_exotitleform in wimshome/sessions/$(wims_whoconnect[$k;$ses])/var.stat
36
      !next ses
37
    !next se
38
    !setdef wims_exotitleform=$up_exotitleform in wimshome/sessions/$wims_session/var.stat
39
  !endif
40
  !defread wimshome/log/classes/$wims_class/.def
41
  wims_class_log=Modify class configuration by $wims_realuser
23 reyssat 42
!endif
43
 
14315 guerimand 44
!!read adm/du $wims_home/log/classes/$wims_class
23 reyssat 45
 
46
!if $wims_superclass!=$empty
12411 bpr 47
  supertype=!defof class_type in wimshome/log/classes/$wims_superclass/.def
48
  class_expiration=!defof class_expiration in wimshome/log/classes/$wims_superclass/.def
49
  classdepth=!translate internal / to , in $wims_class
50
  classdepth=!itemcnt $classdepth
23 reyssat 51
!endif