Subversion Repositories wimsdev

Rev

Rev 14747 | Rev 14832 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 14747 Rev 14819
Line 1... Line 1...
1 
!! expirefreework
 1 
!! desactivate freework
- 
 
 2 
!! change statut from 1 to 0 (return to preparation mode)
2 
 
 3 
 
- 
 
 4 
!if $activetest!=1
- 
 
 5 
  job=configfw
- 
 
 6 
  !reset back
- 
 
 7 
  !changeto $job.proc
- 
 
 8 
!endif
- 
 
 9 
 
3 
!if $type!=1
 10 
!if $type>2
4 
  error=notnow
 11 
  error=notnow
5 
  job=configfw
 12 
  job=configfw
6 
  !changeto $job.proc
 13 
  !changeto $job.proc
7 
!endif
 14 
!endif
8 
 
 15 
 
9 
!! -------- desactivate freework of type=1
 16 
!! -------- desactivate freework of type=1
10 
!! nocondition
 17 
!! nocondition
- 
 
 18 
 
- 
 
 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
11 
 
 31 
 
12 
!! change statut
 32 
!! change statut
13 
activetest=0
 33 
activetest=0
14 
update_content=0\
 34 
update_content=0\
15 
$class_expiration\
 35 
$class_expiration\
Line 20... Line 40...
20 
$deadline.$timedeadline\
 40 
$deadline.$timedeadline\
21 
$soldate.$timesoldate\
 41 
$soldate.$timesoldate\
22 
$sizelimitfile\
 42 
$sizelimitfile\
23 
$scoring\
 43 
$scoring\
24 
$seealltime
 44 
$seealltime
25 
 
 45 
 
26 
update_field=$freework
 46 
update_field=$freework
27 
update_nbline=11
 47 
update_nbline=11
28 
!read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks
 48 
!read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks
29 
 
 49 
 
30 
success=gooddeactivate
 50 
success=gooddeactivate
31 
!if $back=1
 51 
!if $back=1
32 
  !restart module=home
 52 
  !restart module=home
33 
!else
 53 
!else
34 
  job=configfw
 54 
  job=configfw
35 
  !reset back
 55 
  !reset back
36 
  !changeto $job.proc
 56 
  !changeto $job.proc
37 
!endif
 57 
!endif
- 
 
 58 
 
- 
 
 59 
 
- 
 
 60 
 
- 
 
 61 
 
38 
 
 62