Subversion Repositories wimsdev

Rev

Rev 14537 | Go to most recent revision | Details | 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)
11 
!if $type>=2
12 
  n1=!filelist $wims_home/log/classes/$wims_class/freeworksdata/$freework/work
13 
  n1=!linecnt $n1
14 
  n2=!filelist $wims_home/log/classes/$wims_class/freeworksdata/$freework/co
15 
  n2=!linecnt $n2
16 
  !if $n1!=$n2
17 
    error=notallcorrected
18 
    job=configfw
19 
    !changeto $job.proc
20 
  !endif
21 
!endif
22 
 
23 
 
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\
34 
$sizelimitfile
35 
update_field=$freework
36 
update_nbline=10
37 
!read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks
38 
 
39 
success=goodstatut
40 
!if $back=1
41 
  !restart module=home
42 
!else
43 
  job=configfw
44 
  !changeto $job.proc
45 
!endif