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 |