Subversion Repositories wimsdev

Rev

Rev 16568 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
16542 guerimand 1
!! not allow for other than type=3
2
!if $type!=3
3
  job=configfw
4
  !changeto $job.proc
5
!endif
6
 
7
!if $putiworkco!=0 or $seealltime!=1
8
  error=putworknotallow
9
  job=configfw
10
  !changeto $job.proc
11
!endif
12
 
13
!! -------- check for valid student (in class)
14
!bound userv within $ulist default $empty
15
!if $userv=$empty
16
  error=putworkusernotexists
17
  job=configfw
18
  !changeto $job.proc
19
!endif
20
 
21
 
22
!! -------- test si la copie de l'etudiant existe (pas de depot de correction si pas de copie)
23
 
24
!readproc proc/findfile3.proc $freework,$userv
25
!if $output=$empty
26
  error=studentwithoutfw
27
  job=configfw
28
  !changeto $job.proc
29
!endif
30
 
31
!! -------- save remark
32
remark=!char 1 to 1000 of $remark
33
remark=!replace internal : by : in $remark
34
!writefile wimshome/log/classes/$wims_class/freeworksdata/$freework/co/$userv $remark
35
 
36
job=viewuser3
37
!changeto $job.proc