Subversion Repositories wimsdev

Rev

Rev 14305 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
14297 guerimand 1
!! activate freework
2
 
3
!! --- testing if erasable
4
!read proc/iserasable.proc $freework
5
!if $erasable=no
6
  error=noterasable
7
  job=configfw
8
  !changeto $job.proc
9
!endif
10
 
11
!if $nbfreework=1
12
  !sh rm -f $wims_home/log/classes/$wims_class/freeworks/.freework$freework >/dev/null\
13
    rm -f $wims_home/log/classes/$wims_class/freeworks/.freeworks >/dev/null\
14
    touch $wims_home/log/classes/$wims_class/freeworks/.freeworks
15
!else
16
  !sh cd $wims_home/log/classes/$wims_class/freeworks/;\
14572 bpr 17
    rm -f .freework$freework >/dev/null\
18
    rm -rf $freework >/dev/null\
19
    rm -rf $wims_home/log/classes/$wims_class/freeworksdata/$freework >/dev/null\
20
    n=$[$freework+1];\
21
    while [ $$n -le $nbfreework ]; do\
22
      mv .freework$$n .freework$$(($$n-1)) >/dev/null\
23
      mv $wims_home/log/classes/$wims_class/freeworksdata/$$n $wims_home/log/classes/$wims_class/freeworksdata/$$(($$n-1)) >/dev/null\
24
      mv $wims_home/log/classes/$wims_class/freeworks/$$n $wims_home/log/classes/$wims_class/freeworks/$$(($$n-1)) >/dev/null\
25
      n=$$(($$n+1))\
26
    done
14297 guerimand 27
  data=$empty
28
  !for k=1 to $nbfreework
29
    rec=!record $k of wimshome/log/classes/$wims_class/freeworks/.freeworks
30
    !if $k!=$freework
31
      data=$data\
32
:$rec
33
    !endif
34
  !next k
35
  !filewrite wimshome/log/classes/$wims_class/freeworks/.freeworks $data
36
!endif
37
nbfreework=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freeworks
38
success=gooderase
14305 guerimand 39
!restart module=home