Subversion Repositories wimsdev

!! activate freework

!! --- testing if erasable

!read proc/iserasable.proc $freework

!if $erasable=no

  error=noterasable

  job=configfw

  !changeto $job.proc

!endif

!if $nbfreework=1

  !sh rm -f $wims_home/log/classes/$wims_class/freeworks/.freework$freework >/dev/null\

    rm -f $wims_home/log/classes/$wims_class/freeworks/.freeworks >/dev/null\

    touch $wims_home/log/classes/$wims_class/freeworks/.freeworks

!else

  !sh cd $wims_home/log/classes/$wims_class/freeworks/;\

    rm -f .freework$freework >/dev/null\

    rm -rf $freework >/dev/null\

    rm -rf $wims_home/log/classes/$wims_class/freeworksdata/$freework >/dev/null\

    n=$[$freework+1];\

    while [ $$n -le $nbfreework ]; do\

      mv .freework$$n .freework$$(($$n-1)) >/dev/null\

      mv $wims_home/log/classes/$wims_class/freeworksdata/$$n $wims_home/log/classes/$wims_class/freeworksdata/$$(($$n-1)) >/dev/null\

      mv $wims_home/log/classes/$wims_class/freeworks/$$n $wims_home/log/classes/$wims_class/freeworks/$$(($$n-1)) >/dev/null\

      n=$$(($$n+1))\

    done

  data=$empty

  !for k=1 to $nbfreework

    rec=!record $k of wimshome/log/classes/$wims_class/freeworks/.freeworks

    !if $k!=$freework

      data=$data\

:$rec

    !endif

  !next k

  !filewrite wimshome/log/classes/$wims_class/freeworks/.freeworks $data

!endif

nbfreework=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freeworks

success=gooderase

!restart module=home