Subversion Repositories wimsdev

Rev

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

Rev 14305 Rev 14572
Line 12... Line 12...
12
  !sh rm -f $wims_home/log/classes/$wims_class/freeworks/.freework$freework >/dev/null\
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\
13
    rm -f $wims_home/log/classes/$wims_class/freeworks/.freeworks >/dev/null\
14
    touch $wims_home/log/classes/$wims_class/freeworks/.freeworks
14
    touch $wims_home/log/classes/$wims_class/freeworks/.freeworks
15
!else
15
!else
16
  !sh cd $wims_home/log/classes/$wims_class/freeworks/;\
16
  !sh cd $wims_home/log/classes/$wims_class/freeworks/;\
17
      rm -f .freework$freework >/dev/null\
17
    rm -f .freework$freework >/dev/null\
18
      rm -rf $freework >/dev/null\
18
    rm -rf $freework >/dev/null\
19
      rm -rf $wims_home/log/classes/$wims_class/freeworksdata/$freework >/dev/null\
19
    rm -rf $wims_home/log/classes/$wims_class/freeworksdata/$freework >/dev/null\
20
      n=$[$freework+1];\
20
    n=$[$freework+1];\
21
      while [ $$n -le $nbfreework ]; do\
21
    while [ $$n -le $nbfreework ]; do\
22
        mv .freework$$n .freework$$(($$n-1)) >/dev/null\
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\
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\
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))\
25
      n=$$(($$n+1))\
26
      done
26
    done
27
  data=$empty
27
  data=$empty
28
  !for k=1 to $nbfreework
28
  !for k=1 to $nbfreework
29
    rec=!record $k of wimshome/log/classes/$wims_class/freeworks/.freeworks
29
    rec=!record $k of wimshome/log/classes/$wims_class/freeworks/.freeworks
30
    !if $k!=$freework
30
    !if $k!=$freework
31
      data=$data\
31
      data=$data\
Line 35... Line 35...
35
  !filewrite wimshome/log/classes/$wims_class/freeworks/.freeworks $data
35
  !filewrite wimshome/log/classes/$wims_class/freeworks/.freeworks $data
36
!endif
36
!endif
37
nbfreework=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freeworks
37
nbfreework=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freeworks
38
success=gooderase
38
success=gooderase
39
!restart module=home
39
!restart module=home
40
 
-