Subversion Repositories wimsdev

# Variable calculations should be done in this file.

# It is read and interpreted by wims for all valid calls to the module.

!if $class_expiration=$empty

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

!endif

!if $class_expiration=$empty

  error=bad_class

  !exit

!endif

!! ----------- analyse d'une demande de modification du jour de démarrage de la période d'affichage

jdate=!text select char 0123456789 in $jdate

jdate2=!text select char 0123456789 in $jdate2

jyear=!char 1 to 4 of $jdate

jmonth=!char 5 to 6 of $jdate

jday=!char 7 to 8 of $jdate

jyear2=!char 1 to 4 of $jdate2

jmonth2=!char 5 to 6 of $jdate2

jday2=!char 7 to 8 of $jdate2

!if $jday!=$empty and $jyear!=$empty and $jyear!=$empty

  jmonth=!char 2,3 of $[abs(floor($jmonth))+100]

  !if $[$jday]=0

    tst=1

    jday=01

  !else

    tst=0

    jday=!char 2,3 of $[abs(floor($jday))+100]

  !endif

  jyear=!char -4 to -1 of $[abs(floor($jyear))+100000]

  !if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 and NaN notin $jmonth$jday$jyear

    jour_begin=$jyear$jmonth$jday

    jour_end=$jour_begin

  !else

    error=day_dontexist

    job=home

    !exit

  !endif

!endif

!if $jmonth2!=$empty and $jday2!=$empty and $jyear2!=$empty

  jmonth2=$[$jmonth2]

  !bound jmonth2 within 1,2,3,4,5,6,7,8,9,10,11,12 default $jmonth

  jmonth2=!char 2,3 of $[abs(floor($jmonth2))+100]

  jday2=!char 2,3 of $[abs(floor($jday2))+100]

  !if $tst=1 and $[$jday2]=0

    jday2=31

  !endif

  jyear2=!char -4 to -1 of $[abs(floor($jyear2))+100000]

  !if $[$jyear2]=0

    jyear2=$jyear

  !endif

  !if $jday2>=1 and $jday2<=31 and $jmonth2>=1 and $jmonth2<=12 and N notin $jmonth2$jday2$jyear2 and $jyear2$jmonth2$jday2>=$jour_begin

    jour_end=$jyear2$jmonth2$jday2

  !endif

!endif

!if $cdt_supervise!=yes

  class_parent=!text select 0123456789/ in $class_parent

  courses=!words2lines $ltcourses

!endif

!readproc proc/mkindex.proc

list=!mexec proc/mk$job.sh

nbligne=!linecnt $list