Subversion Repositories wimsdev

Rev

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
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\
17593 czzmrn 42 
$seealltime\
43 
$studentclose
14297 guerimand 44 
 
45 
update_field=$freework
17593 czzmrn 46 
update_nbline=12
14297 guerimand 47 
!read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks
48 
 
49 
success=gooddeactivate
50 
!if $back=1
51 
  !restart module=home
52 
!else
53 
  job=configfw
54 
  !reset back
55 
  !changeto $job.proc
56 
!endif
57 
 
14819 guerimand 58 
 
59 
 
60 
 
61