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