Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
17637 czzmrn 1
!! duplicate a freework
2
 
3
!if $nbfreework>=$max_freeworks
4
  error=bad_maxfreework
5
  !reset job wims_ariane
6
  !changeto var.proc
7
!endif
8
!bound freework between 1 and $nbfreework default $empty
9
 
10
!if $freework=$empty
11
  error=bad_freework
12
  !reset job wims_ariane
13
  !changeto var.proc
14
!endif
15
 
16
!! can duplicate only active freeworks (?)
17
!if $activetest!=1 and $activetest!=2
18
  !reset job wims_ariane
19
  !changeto var.proc
20
!endif
21
 
22
nextfw=$[$nbfreework+1]
23
 
24
!! need to check if .student* is really needed
25
 
26
!sh cd $wims_home/log/classes/$wims_class/freeworks/\
27
cp .freework$freework .freework$nextfw \
28
cp .Wfreework$freework .Wfreework$nextfw \
29
mkdir -p $wims_home/log/classes/$wims_class/freeworks/$nextfw \
30
cp -p $wims_home/log/classes/$wims_class/freeworks/$freework/.teacher* $wims_home/log/classes/$wims_class/freeworks/$freework/.student* $wims_home/log/classes/$wims_class/freeworks/$nextfw/ \
31
cp -ap $wims_home/log/classes/$wims_class/freeworks/$freework/* $wims_home/log/classes/$wims_class/freeworks/$nextfw/ 
32
 
33
!! verify if other dirs/files are needed
34
!! (freeworksdata is created when activating freework)
35
 
36
tmp=!record $freework of wimshome/log/classes/$wims_class/freeworks/.freeworks
37
  !distribute line $tmp into activetest,expdate,title,desc,comment,type,deadline,soldate,sizelimitfile,scoring,seealltime,studentclose
38
 
39
!for val in deadline,soldate
40
  t=!replace internal . by , in $($val)
41
  !distribute item $t into $val,time$val
42
  !default $val=$today
43
  !default time$val=00:00
44
!next val
45
!set activetest=0
46
 
47
update_content=$activetest\
48
$class_expiration\
49
$title\
50
$desc\
51
$comment\
52
$type\
53
$deadline.$timedeadline\
54
$soldate.$timesoldate\
55
$sizelimitfile\
56
$scoring\
57
$seealltime\
58
$studentclose
59
 
60
update_field=$nextfw
61
update_nbline=$fw_nbline
62
!read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks
63
 
64
 
65
nbfreework=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freeworks
66
freework=$nbfreework
67
success=duplicateok
68
!reset job wims_ariane
69
!changeto var.proc