Subversion Repositories wimsdev

!! not allow for other than type=3

!if $type!=3

  job=configfw

  !changeto $job.proc

!endif

!if $putiworkco!=0 or $seealltime!=1

  error=putworknotallow

  job=configfw

  !changeto $job.proc

!endif

!! -------- check for valid student (in class)

!bound userv within $ulist default $empty

!if $userv=$empty

  error=putworkusernotexists

  job=configfw

  !changeto $job.proc

!endif

!! -------- test si la copie de l'etudiant existe (pas de depot de correction si pas de copie)

!readproc proc/findfile3.proc $freework,$userv

!if $output=$empty

  error=studentwithoutfw

  job=configfw

  !changeto $job.proc

!endif

!! -------- save remark

remark=!char 1 to 1000 of $remark

remark=!replace internal : by : in $remark

test=!nospace $remark

!if $test=$empty

  !sh rm -f $wims_home/log/classes/$wims_class/freeworksdata/$freework/co/.$userv $remark

!else

  !if $remark!=$empty

    !writefile wimshome/log/classes/$wims_class/freeworksdata/$freework/co/.$userv $remark

  !endif

!endif

!! -------- save finalremark

finalremark=!char 1 to 1000 of $finalremark

finalremark=!replace internal : by : in $finalremark

test=!nospace $finalremark

!if $test=$empty

  !sh rm -f $wims_home/log/classes/$wims_class/freeworksdata/$freework/co/$userv $finalremark;

!else

  !if $finalremark!=$empty

    !writefile wimshome/log/classes/$wims_class/freeworksdata/$freework/co/$userv $finalremark

  !endif

!endif

job=viewuser3

!changeto $job.proc