Subversion Repositories wimsdev

Rev

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