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
!! activate freework
2
 
3
!! --- testing if noempty
4
nb=!record 1 of wimshome/log/classes/$wims_class/freeworks/.freework$freework
5
nb=!nonempty line $nb
6
!if $nb=$empty
7
  error=emptyfreework
8
  job=configfw
9
  !changeto $job.proc
10
!endif
11
 
12
!! --- checking date
13
d1=!text select char 0123456789 in $(deadline)$(timedeadline)
14
d2=!text select char 0123456789 in $(soldate)$(timesoldate)
15
!if $d2<=$d1
16
  error=badsoldate
17
  job=configfw
18
  !changeto $job.proc
19
!endif
20
 
21
!if $type>=2
22
  !! checking quota (if type>=2)
23
  !readproc adm/class/quotafree.proc proc
24
  nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist
25
  space=$[0.25*$nbuser*$sizelimitfile]
26
  !ifval $quota_free-$space<5
27
    error=notenoughfreespace
28
    job=configfw
29
    !changeto $job.proc
30
  !endif
31
!endif
32
 
33
!! change statut
34
activetest=1
35
update_content=1\
36
$class_expiration\
37
$title\
38
$desc\
39
$comment\
40
$type\
41
$deadline.$timedeadline\
42
$soldate.$timesoldate\
14537 guerimand 43
$sizelimitfile\
44
$seealltime
45
 
14297 guerimand 46
update_field=$freework
14537 guerimand 47
update_nbline=11
14297 guerimand 48
!read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks
49
!sh mkdir $wims_home/log/classes/$wims_class/freeworksdata/$freework/work;\
50
    mkdir $wims_home/log/classes/$wims_class/freeworksdata/$freework/co;
51
 
52
success=goodstatut
53
!if $back=1
54
  !restart module=home
55
!else
56
  job=configfw
57
  !reset back
58
  !changeto $job.proc
59
!endif