Subversion Repositories wimsdev

Rev

Rev 16093 | Rev 16513 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16093 Rev 16307
Line 2... Line 2...
2 
cdir=$wims_home/log/classes/$wims_class
 2 
cdir=$wims_home/log/classes/$wims_class
3 
 
 3 
 
4 
nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework
 4 
nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework
5 
!bound exolog between 1 and $nbexo default $empty
 5 
!bound exolog between 1 and $nbexo default $empty
6 
!if $exolog=$empty
 6 
!if $exolog=$empty
7 
  error=exolog-noexo
 7 
  error=exolog-noexo
8 
  job=student
 8 
  job=student
9 
  !changeto var.proc
 9 
  !changeto var.proc
10 
!endif
 10 
!endif
- 
 
 11 
 
11 
 
 12 
 
12 
!! ------ no register if exercise already exists
 13 
!! ------ no register if exercise already exists
13 
test=!fileexists wimshome/log/classes/$wims_class/freeworksdata/$freework/work/$wims_user.$exolog
 14 
test=!fileexists wimshome/log/classes/$wims_class/freeworksdata/$freework/work/$(wims_user)-wimsexo/$exolog
14 
!if $test=yes
 15 
!if $test=yes
15 
  error=exolog-exoexists
 16 
  error=exolog-exoexists
16 
  job=student
 17 
  job=student
17 
  !changeto var.proc
 18 
  !changeto var.proc
18 
!endif
 19 
!endif
19 
 
 20 
 
20 
!! ------- check of good exercise parameters (peut-être un truc dans le c pour le faire à voir)
 21 
!! ------- check of good exercise parameters (peut-être un truc dans le c pour le faire à voir)
21 
data=!record $exolog of wimshome/log/classes/$wims_class/freeworks/.freework$freework
 22 
data=!record $exolog of wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework
22 
!distribute line $data into modu,para,bla,bla
 23 
!distribute line $data into modu,para,bla,bla
23 
para=wims_freework=$freework,$exolog&$para
 24 
para=wims_freework=$freework,$exolog&$para
24 
exec=!defof w_module\
 25 
exec=!defof w_module\
25 
w_module_init_parm in wimshome/$wims_sesdir/exolog
 26 
w_module_init_parm in wimshome/$wims_sesdir/exolog
26 
!distribute line $exec into modu2,para2
 27 
!distribute line $exec into modu2,para2
27 
!if $modu2 notsametext $modu or $para2 notsametext $para
 28 
!if $modu2 notsametext $modu or $para2 notsametext $para
28 
  error=exolog-badparameter
 29 
  error=exolog-badparameter
29 
 
 - 
 
30 
  job=student
 30 
  job=student
31 
  !changeto var.proc
 31 
  !changeto var.proc
32 
!endif
 32 
!endif
33 
 
 33 
 
- 
 
 34 
!sh mkdir -p $cdir/freeworksdata/$freework/work/$(wims_user)-wimsexo;\
34 
!sh mv $sdir/exolog $cdir/freeworksdata/$freework/work/$wims_user.$exolog
 35 
    mv $sdir/exolog $cdir/freeworksdata/$freework/work/$(wims_user)-wimsexo/$exolog;
35 
!! replace the name of images by rename by the true name when saving
 36 
!! replace the name of images by rename by the true name when saving
36 
rename_list =!record 0 of wimshome/$wims_sesdir/.rename
 37 
rename_list =!record 0 of wimshome/$wims_sesdir/.rename
37 
rename_list_cnt=!linecnt $rename_list
 38 
rename_list_cnt=!linecnt $rename_list
38 
!for l=1 to $rename_list_cnt
 39 
!for l=1 to $rename_list_cnt
39 
  rename_l=!line $l of $rename_list
 40 
  rename_l=!line $l of $rename_list
40 
  rename_l=!replace internal : by , in $rename_l
 41 
  rename_l=!replace internal : by , in $rename_l
41 
  rename_l=!replace internal ? by \? in $rename_l
 42 
  rename_l=!replace internal ? by \? in $rename_l
42 
  !sh perl -np -i -e 's:$(rename_l[2]):$(rename_l[1]):g' $cdir/freeworksdata/$freework/work/$wims_user.$exolog
 43 
  !sh perl -np -i -e 's:$(rename_l[2]):$(rename_l[1]):g' $cdir/freeworksdata/$freework/work/$(wims_user)-wimsexo/$exolog
43 
!next l
 44 
!next l
44 
wims_fwlistexo=!listcomplement $exolog in $wims_fwlistexo
 45 
wims_fwlistexo=!listcomplement $exolog in $wims_fwlistexo
45 
!setdef wims_fwlistexo=$wims_fwlistexo in wimshome/sessions/$wims_session/var.stat
 46 
!setdef wims_fwlistexo=$wims_fwlistexo in wimshome/sessions/$wims_session/var.stat
46 
job=student
 47 
job=student
47 
!changeto var.proc
 48 
!changeto var.proc