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.

desc_limit=4000

today=!char 1 to 8 of $wims_now

thisyear=!char 1 to 4 of $today

!if $class_expiration=$empty

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

!endif

!if $class_expiration=$empty

  error=bad_class

  !exit

!endif

!bound nbredevoir between integer 1 and $max_todo default 1

!if $s_nbdevoir!=$nbredevoir

  !reset job2

!endif

s_nbdevoir=$nbredevoir

!if $job2!=save

  !exit

!endif

jyear=!char 1 to 4 of $jdate

jmonth=!char 6 to 7 of $jdate

jday=!char 9 to 10 of $jdate

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

  jour=$jyear$jmonth$jday

!else

  error=bad_day

  !exit

!endif

!reset date_todo,date_exist

!read wimshome/log/classes/$wims_class/cdt/def/$jour

tmp=!itemcnt $date_todo

!if yes isin $date_exist and $tmp+$s_nbdevoir>$max_todo

  error=toomany_todo

  !if $tmp<$max_todo

    s_nbdevoir=$[$max_todo-$tmp]

    nbredevoir=$s_nbdevoir

  !endif

  !exit

!endif

ltjdevoir=$date_todo

!for i=1 to $s_nbdevoir

  dyear=!char 1 to 4 of $(ddate$i)

  dmonth=!char 6 to 7 of $(ddate$i)

  dday=!char 9 to 10 of $(ddate$i)

  !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \

   and N notin $dmonth$dday$dyear \

   and $dyear$dmonth$dday>$jour

    jdevoir$i=$dyear$dmonth$dday

    ltjdevoir=!append item $(jdevoir$i) to $ltjdevoir

  !else

    error=bad_jday

    !exit

  !endif

!next i

tmp=!listuniq $ltjdevoir

tmp1=!itemcnt $tmp

tmp2=!itemcnt $ltjdevoir

!if $tmp1!=$tmp2

  error=same_devoir2

  !exit

!endif

s2file=$wims_home/s2/$wims_session/$jour

!if yes isin $date_exist

  !sh cp $wims_home/log/classes/$wims_class/cdt/def/$jour $s2file

!else

  cdt_nbdate=$[$cdt_nbdate+1]

  !writefile wimshome/log/classes/$wims_class/cdt/src/$jour.work $empty

  !writefile wimshome/s2/$wims_session/$jour !set date_exist=yes\

!set date_todo=$empty\

\

!if $$wims_read_parm!=$$empty\

 !goto $$wims_read_parm\

!endif\

!exit\

\

:content\

!exit

!endif

ltjdevoir=$date_todo

nb=!itemcnt $date_todo

!for i=1 to $s_nbdevoir

  !if $(ddesc$i)!=$empty

    nb=$[$nb+1]

    !writefile wimshome/log/classes/$wims_class/cdt/src/$jour.todo$nb $(ddesc$i)

    !sh $wims_home/bin/msg2wims $wims_home/log/classes/$wims_class/cdt/src/$jour.todo$nb $s2file.tmp;\

echo ":todo$nb" >> $s2file;\

cat $s2file.tmp >> $s2file;\

echo "!exit" >> $s2file;

    ltjdevoir=!append item $(jdevoir$i) to $ltjdevoir

  !endif

!next i

!setdef !set date_todo=$ltjdevoir in wimshome/s2/$wims_session/$jour

!sh rm $s2file.tmp;\

mv $s2file $wims_home/log/classes/$wims_class/cdt/def/$jour;

!read proc/mkindex.proc

!!jday2=$jday

!!jmonth2=$jmonth

!!jyear2=$jyear

job=work

!read work.proc