Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 16444 | guerimand | 1 | !! job to launch an exercise of freework in type=3 in case of wims exercise |
| 2 | |||
| 3 | !if $type!=3 and $activetest=1 |
||
| 4 | job=student$(lpara_type[$type]) |
||
| 5 | !changeto $job.proc |
||
| 6 | !endif |
||
| 7 | |||
| 8 | !! ----- check of authorisation for student to modify his work (studentmode=0 no studentmode=1 yes) |
||
| 9 | d1=!text select char 0123456789 in $(deadline)$(timedeadline) |
||
| 10 | d2=!text select char 0123456789 in $wims_now |
||
| 11 | d2=!char 1 to 12 of $d2 |
||
| 12 | !reset toolate |
||
| 13 | !if $d2>$d1 |
||
| 14 | job=student$(lpara_type[$type]) |
||
| 15 | !changeto $job.proc |
||
| 16 | !endif |
||
| 17 | |||
| 18 | nb=!recordcnt wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework |
||
| 19 | !bound exonum between 1 and $nb default $empty |
||
| 20 | !if $exonum=$empty |
||
| 21 | job=student$(lpara_type[$type]) |
||
| 22 | !changeto $job.proc |
||
| 23 | !endif |
||
| 24 | |||
| 25 | data=!record $exonum of wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework |
||
| 26 | !distribute line $data into mod,cl,ti,desc |
||
| 27 | test=!fileexists wimshome/log/classes/$wims_class/freeworksdata/$freework/work/$(wims_user)-wimsexo/$freework |
||
| 28 | !if $test!=yes or $wims_user=supervisor |
||
| 29 | !restart module=$(mod)&cmd=new&wims_freework=$(freework),$exonum&$cl $ti |
||
| 30 | !else |
||
| 31 | job=student$(lpara_type[$type]) |
||
| 32 | !changeto $job.proc |
||
| 33 | !endif |