Subversion Repositories wimsdev

Rev

Rev 16444 | Details | Compare with Previous | 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 
16647 guerimand 27
test=!fileexists wimshome/log/classes/$wims_class/freeworksdata/$freework/work/$(wims_user)-wimsexo/$exonum
16444 guerimand 28
!if $test!=yes or $wims_user=supervisor
16647 guerimand 29
  !restart module=$(mod)&cmd=new&$cl&worksheet=F$freework $ti
16444 guerimand 30
!else
31
  job=student$(lpara_type[$type])
32
  !changeto $job.proc
33
!endif