Subversion Repositories wimsdev

Rev

Rev 15004 | Rev 17593 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

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