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