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