Subversion Repositories wimsdev

!!! test if common_files=yes

!read $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