Subversion Repositories wimsdev

Rev

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