Subversion Repositories wimsdev

Rev

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

Rev 2286 Rev 7235
Line -... Line 1...
-
 
1
!!! test if common_files=yes
-
 
2
!read $Docdir/.def
-
 
3
doc_=$doc/
-
 
4
!if $common_files=yes
-
 
5
   doc_=
1
 
6
!endif
2
!if $job2=deposit and $wims_deposit!=$empty \
7
!if $job2=deposit and $wims_deposit!=$empty \
3
	and / notin $wims_deposit and .. notin $wims_deposit
8
	and / notin $wims_deposit and .. notin $wims_deposit
4
 !sh mkdir -p $wims_home/$Docdir/$doc/files\
9
 !sh mkdir -p $wims_home/$Docdir/$(doc_)files\
5
  mv $wims_home/$wims_sesdir/user-deposit $wims_home/$Docdir/$doc/files/$wims_deposit\
10
  mv $wims_home/$wims_sesdir/user-deposit $wims_home/$Docdir/$(doc_)files/$wims_deposit\
6
  cd $wims_home/$wims_sesdir\
11
  cd $wims_home/$wims_sesdir\
7
  mkdir -p getfile\
12
  mkdir -p getfile\
8
  cd getfile\
13
  cd getfile\
9
  rm -f doc\
14
  rm -f doc\
10
  ln -s $wims_home/$filelink/files doc
15
  ln -s $wims_home/$filelink/files doc
11
 !read quota.proc
16
 !read quota.proc
12
 !if $quota_free<0
17
 !if $quota_free<0
13
  !sh rm -f $wims_home/$Docdir/$doc/files/$wims_deposit
18
  !sh rm -f $wims_home/$Docdir/$(doc_)files/$wims_deposit
14
  error=quota_file
19
  error=quota_file
15
 !endif
20
 !endif
16
!endif
21
!endif
17
 
22
 
18
!if erase isin $job2 and .. notin $job2
23
!if erase isin $job2 and .. notin $job2
19
 erase=!item 2 of $job2
24
 erase=!item 2 of $job2
20
 !sh rm -f $wims_home/$Docdir/$doc/files/$erase
25
 !sh rm -f $wims_home/$Docdir/$(doc_)files/$erase
21
!endif
26
!endif
22
 
27
 
23
flist=!filelist $wims_home/$Docdir/$doc/files
28
flist=!filelist $wims_home/$Docdir/$(doc_)files
24
flist=!words2items $flist
29
flist=!words2items $flist
25
f1=$wims_deposit
30
f1=$wims_deposit
26
!if $f1 notin $flist or $f1=
31
!if $f1 notin $flist or $f1=
27
  f1=!item 1 of $flist
32
  f1=!item 1 of $flist
28
!endif
33
!endif