Rev 17637 | Details | Compare with Previous | 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 |
||
| 17643 | czzmrn | 46 | !set scoring=no |
| 17637 | czzmrn | 47 | |
| 48 | update_content=$activetest\ |
||
| 49 | $class_expiration\ |
||
| 50 | $title\ |
||
| 51 | $desc\ |
||
| 52 | $comment\ |
||
| 53 | $type\ |
||
| 54 | $deadline.$timedeadline\ |
||
| 55 | $soldate.$timesoldate\ |
||
| 56 | $sizelimitfile\ |
||
| 57 | $scoring\ |
||
| 58 | $seealltime\ |
||
| 59 | $studentclose |
||
| 60 | |||
| 61 | update_field=$nextfw |
||
| 62 | update_nbline=$fw_nbline |
||
| 63 | !read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks |
||
| 64 | |||
| 65 | |||
| 66 | nbfreework=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freeworks |
||
| 67 | freework=$nbfreework |
||
| 68 | success=duplicateok |
||
| 69 | !reset job wims_ariane |
||
| 70 | !changeto var.proc |