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