Subversion Repositories wimsdev

!!! test if common_files=yes
!read wimshome/$Docdir/.def
doc_=$doc/
!if $common_files=yes
  doc_=
!endif
!if $job2=deposit and $wims_deposit!=$empty \
    and / notin $wims_deposit and .. notin $wims_deposit
  !sh mkdir -p $wims_home/$Docdir/$(doc_)files\
  mv $wims_home/$wims_sesdir/user-deposit $wims_home/$Docdir/$(doc_)files/$wims_deposit\
  cd $wims_home/$wims_sesdir\
  mkdir -p getfile\
  cd getfile\
  rm -f doc\
  ln -s $wims_home/$filelink/files doc
  !read quota.proc
  !if $quota_free<0
    !sh rm -f $wims_home/$Docdir/$(doc_)files/$wims_deposit
    error=quota_file
  !endif
!endif

!if erase isin $job2 and .. notin $job2
  erase=!item 2 of $job2
  !sh rm -f $wims_home/$Docdir/$(doc_)files/$erase
!endif

flist=!filelist $wims_home/$Docdir/$(doc_)files
flist=!words2items $flist
f1=$wims_deposit
!if $f1 notin $flist or $f1=
  f1=!item 1 of $flist
!endif
!read quota.proc