Subversion Repositories wimsdev

Rev

Rev 10132 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10132 Rev 13460
Line -... Line 1...
- 
 
 1 
!! putCSV is at very early draft state. Do not use it yet (WIP).
1 
 
 2 
 
2 
!if $wims_class=$empty or $wims_user!=supervisor
 3 
!if $wims_class=$empty
3 
 error=unauthorized
 4 
  error=unauthorized (no class defined)
4 
 !exit
 5 
  !exit
5 
!endif
 6 
!endif
6 
 
 7 
 
7 
t=!exec ftype $wims_home/$wims_sesdir/user-deposit
 8 
t=!exec ftype $wims_home/$wims_sesdir/user-deposit
8 
!if $t=$empty
 9 
!if $t=$empty
9 
 error=empty
 10 
  error=empty
10 
 !exit
 11 
  !exit
11 
!endif
 12 
!endif
12 
!if $t=binary
 13 
!if $t=binary
13 
 error=binary
 14 
  error=binary
14 
 !exit
 15 
  !exit
15 
!endif
 16 
!endif
16 
 
 17 
 
17 
!sh cd $wims_home/$wims_sesdir\
 18 
!sh cd $wims_home/$wims_sesdir\
18 
 grep . user-deposit | awk '{print ":"$$0}' | tr '	"' ', ' >user_deposit\
 19 
 grep . user-deposit | awk '{print ":"$$0}' | tr '	"' ', ' >user_deposit\
19 
 rm -f user-deposit >/dev/null
 20 
 rm -f user-deposit >/dev/null