Subversion Repositories wimsdev

Rev

Rev 14747 | Rev 14832 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 14747 Rev 14819
Line 1... Line 1...
1
!! expirefreework
1
!! desactivate freework
-
 
2
!! change statut from 1 to 0 (return to preparation mode)
2
 
3
 
-
 
4
!if $activetest!=1
-
 
5
  job=configfw
-
 
6
  !reset back
-
 
7
  !changeto $job.proc
-
 
8
!endif
-
 
9
 
3
!if $type!=1
10
!if $type>2
4
  error=notnow
11
  error=notnow
5
  job=configfw
12
  job=configfw
6
  !changeto $job.proc
13
  !changeto $job.proc
7
!endif
14
!endif
8
 
15
 
9
!! -------- desactivate freework of type=1
16
!! -------- desactivate freework of type=1
10
!! nocondition
17
!! nocondition
-
 
18
 
-
 
19
 
-
 
20
!! -------- desactivate freework of type=2 or type=3
-
 
21
!if $type=2 or $type=3
-
 
22
!! desactivated is possible only if no student work
-
 
23
  !reset list
-
 
24
  list=!filelist $wims_home/log/classes/$wims_class/freeworksdata/$freework/work
-
 
25
  !if $list!=$empty
-
 
26
    error=notallowed_desactivated
-
 
27
    job=configfw
-
 
28
    !changeto $job.proc
-
 
29
  !endif
-
 
30
!endif
11
 
31
 
12
!! change statut
32
!! change statut
13
activetest=0
33
activetest=0
14
update_content=0\
34
update_content=0\
15
$class_expiration\
35
$class_expiration\
Line 20... Line 40...
20
$deadline.$timedeadline\
40
$deadline.$timedeadline\
21
$soldate.$timesoldate\
41
$soldate.$timesoldate\
22
$sizelimitfile\
42
$sizelimitfile\
23
$scoring\
43
$scoring\
24
$seealltime
44
$seealltime
25
 
45
 
26
update_field=$freework
46
update_field=$freework
27
update_nbline=11
47
update_nbline=11
28
!read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks
48
!read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks
29
 
49
 
30
success=gooddeactivate
50
success=gooddeactivate
31
!if $back=1
51
!if $back=1
32
  !restart module=home
52
  !restart module=home
33
!else
53
!else
34
  job=configfw
54
  job=configfw
35
  !reset back
55
  !reset back
36
  !changeto $job.proc
56
  !changeto $job.proc
37
!endif
57
!endif
-
 
58
 
-
 
59
 
-
 
60
 
-
 
61
 
38
 
62