Subversion Repositories wimsdev

!if $save!=$empty

  up_expiration=!text select char 0123456789 in $up_expiration

  !read scripts/setdef.proc

  !! ---------- testind condition on expire date for compatibility sharable/sharing

  !! cannot have expiration date before a sharable class

  !! cannot have expiration date after a sharing class

  test=!defof sharable_all\

sharing_all in wimshome/log/classes/$wims_class/neighbors

  !distribute line $test into sharable,sharing

  !distribute item 0,99999999 into expmin,expmax

  !for cl in $sharable

    test=!defof class_expiration in wimshome/log/classes/$cl/.def

    expmin=$[max($test,$expmin)]

  !next cl

  !if $up_expiration<$expmin

    error=expdate_sharable $expmin

    !exit

  !endif

  !for cl in $sharing

    test=!defof class_expiration in wimshome/log/classes/$cl/.def

    expmax=$[min($test,$expmax)]

  !next cl

  !if $up_expiration>$expmax

    error=expdate_sharing $expmax

    !exit

  !endif

  !! ---------- end sharing/sharable test

  !if $up_exotitleform!=$class_exotitleform

  !! change value of wims_exotitleform for connected student

    !readproc adm/whoconnect 1

    !for k=1 to $wims_numpartconnected

      !let s=!itemcnt $(wims_whoconnect[$k])

      !for ses=3 to $s

        !setdef wims_exotitleform=$up_exotitleform in wimshome/sessions/$(wims_whoconnect[$k;$ses])/var.stat

      !next ses

    !next se

    !setdef wims_exotitleform=$up_exotitleform in wimshome/sessions/$wims_session/var.stat

  !endif

  !defread wimshome/log/classes/$wims_class/.def

  wims_class_log=Modify class configuration by $wims_realuser

!endif

!!read adm/du $wims_home/log/classes/$wims_class

!if $wims_superclass!=$empty

  supertype=!defof class_type in wimshome/log/classes/$wims_superclass/.def

  class_expiration=!defof class_expiration in wimshome/log/classes/$wims_superclass/.def

  classdepth=!translate internal / to , in $wims_class

  classdepth=!itemcnt $classdepth

!endif