Subversion Repositories wimsdev

Rev

Rev 14747 | Rev 17593 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
14297 guerimand 1 
!! expirefreework
2 
 
3 
!! --- testing if freework is active
14830 guerimand 4 
!if $activetest!=1 and $activetest!=3
14297 guerimand 5 
  error=fwnotactive
6 
  job=configfw
7 
  !changeto $job.proc
8 
!endif
9 
 
14830 guerimand 10 
!if $activetest=1
11 
  !!testing if all work are corrected (and deposit)
12 
  !if $type>=2 and $notcorrected>0
13 
    error=notallcorrected
14 
    job=configfw
15 
    !changeto $job.proc
16 
  !endif
14297 guerimand 17 
 
14830 guerimand 18 
  !! testing if solutiondate pass (user can view solution)
19 
  !ifval $type>=2 and $displaysolution!=1
20 
    error=expire_nosoldisplay
21 
    job=configfw
22 
    !changeto $job.proc
23 
  !endif
14537 guerimand 24 
!endif
25 
 
14297 guerimand 26 
!! change statut
27 
activetest=2
28 
update_content=2\
29 
$class_expiration\
30 
$title\
31 
$desc\
32 
$comment\
33 
$type\
34 
$deadline.$timedeadline\
35 
$soldate.$timesoldate\
14537 guerimand 36 
$sizelimitfile\
14747 guerimand 37 
$scoring\
14537 guerimand 38 
$seealltime
39 
 
14297 guerimand 40 
update_field=$freework
14537 guerimand 41 
update_nbline=11
14297 guerimand 42 
!read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks
43 
 
44 
success=goodstatut
45 
!if $back=1
46 
  !restart module=home
47 
!else
48 
  job=configfw
49 
  !changeto $job.proc
50 
!endif