Subversion Repositories wimsdev

Rev

Rev 14832 | Rev 16420 | 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
29
update_content=0\
30
$class_expiration\
31
$title\
32
$desc\
33
$comment\
34
$type\
35
$deadline.$timedeadline\
36
$soldate.$timesoldate\
14537 guerimand 37
$sizelimitfile\
14747 guerimand 38
$scoring\
14537 guerimand 39
$seealltime
14297 guerimand 40
 
41
update_field=$freework
14537 guerimand 42
update_nbline=11
14297 guerimand 43
!read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks
44
 
45
success=gooddeactivate
46
!if $back=1
47
  !restart module=home
48
!else
49
  job=configfw
50
  !reset back
51
  !changeto $job.proc
52
!endif
53
 
14819 guerimand 54
 
55
 
56
 
57