Subversion Repositories wimsdev

Rev

Rev 17593 | 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
 
16738 guerimand 12
nb=!itemcnt $wimsexozone
13
!if $nb>1
14
  error=toomanywimsexo
15
  job=configfw
16
  !changeto $job.proc
17
!endif
18
 
14297 guerimand 19
!! --- checking date
20
d1=!text select char 0123456789 in $(deadline)$(timedeadline)
21
d2=!text select char 0123456789 in $(soldate)$(timesoldate)
22
!if $d2<=$d1
23
  error=badsoldate
24
  job=configfw
25
  !changeto $job.proc
26
!endif
27
 
28
!if $type>=2
29
  !! checking quota (if type>=2)
30
  !readproc adm/class/quotafree.proc proc
31
  nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist
32
  space=$[0.25*$nbuser*$sizelimitfile]
33
  !ifval $quota_free-$space<5
34
    error=notenoughfreespace
35
    job=configfw
36
    !changeto $job.proc
37
  !endif
38
!endif
39
 
14889 guerimand 40
!! ---------- make a column in .grades file for this scoring
41
!if $scoring=0 and $type>=2
16422 guerimand 42
  test=!fileexists wimshome/log/classes/$wims_class/.grades
43
  !if $test=yes
44
    data=!record 1 of wimshome/log/classes/$wims_class/.grades
45
    !distribute line $data into l1,l2,l3
46
    l2=!append item $wims_name_freework $freework to $l2
47
    l3=!append item 1 to $l3
48
    update_field=1
49
    update_content=$l1\
14889 guerimand 50
$l2\
51
$l3
16422 guerimand 52
    !read adm/uprecord wimshome/log/classes/$wims_class/.grades
53
    !increase nbscore
54
    scoring=$nbscore
55
  !else
56
    !writefile wimshome/log/classes/$wims_class/.grades :0\
57
title,title,$wims_name_freework $freework\
58
weight,weight,1
59
    nbscore=1
60
    scoring=1
61
  !endif
14889 guerimand 62
!endif
63
 
14297 guerimand 64
!! change statut
65
activetest=1
66
update_content=1\
67
$class_expiration\
68
$title\
69
$desc\
70
$comment\
71
$type\
72
$deadline.$timedeadline\
73
$soldate.$timesoldate\
14537 guerimand 74
$sizelimitfile\
14747 guerimand 75
$scoring\
17593 czzmrn 76
$seealltime\
77
$studentclose
14537 guerimand 78
 
14297 guerimand 79
update_field=$freework
17634 czzmrn 80
update_nbline=$fw_nbline
14297 guerimand 81
!read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks
14747 guerimand 82
!sh mkdir -p $wims_home/log/classes/$wims_class/freeworksdata/$freework/work;\
83
    mkdir -p $wims_home/log/classes/$wims_class/freeworksdata/$freework/co;
14297 guerimand 84
 
85
success=goodstatut
86
!if $back=1
87
  !restart module=home
88
!else
89
  job=configfw
90
  !reset back
91
  !changeto $job.proc
92
!endif