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