Rev 16087 | Rev 16307 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
sdir=$wims_home/$wims_sesdir
cdir=$wims_home/log/classes/$wims_class
nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework
!bound exolog between 1 and $nbexo default $empty
!if $exolog=$empty
error=exolog-noexo
job=student
!changeto var.proc
!endif
!! ------ no register if exercise already exists
test=!fileexists wimshome/log/classes/$wims_class/freeworksdata/$freework/work/$wims_user.$exolog
!if $test=yes
error=exolog-exoexists
job=student
!changeto var.proc
!endif
!! ------- check of good exercise parameters (peut-être un truc dans le c pour le faire à voir)
data=!record $exolog of wimshome/log/classes/$wims_class/freeworks/.freework$freework
!distribute line $data into modu,para,bla,bla
para=wims_freework=$freework,$exolog&$para
exec=!defof w_module\
w_module_init_parm in wimshome/$wims_sesdir/exolog
!distribute line $exec into modu2,para2
!if $modu2 notsametext $modu or $para2 notsametext $para
error=exolog-badparameter
job=student
!changeto var.proc
!endif
!sh mv $sdir/exolog $cdir/freeworksdata/$freework/work/$wims_user.$exolog
!! replace the name of images by rename by the true name when saving
rename_list =!record 0 of wimshome/$wims_sesdir/.rename
rename_list_cnt=!linecnt $rename_list
!for l=1 to $rename_list_cnt
rename_l=!line $l of $rename_list
rename_l=!replace internal : by , in $rename_l
rename_l=!replace internal ? by \? in $rename_l
!sh perl -np -i -e 's:$(rename_l[2]):$(rename_l[1]):g' $cdir/freeworksdata/$freework/work/$wims_user.$exolog
!next l
wims_fwlistexo=!listcomplement $exolog in $wims_fwlistexo
!setdef wims_fwlistexo=$wims_fwlistexo in wimshome/sessions/$wims_session/var.stat
job=student
!changeto var.proc