Subversion Repositories wimsdev

Compare Revisions

Ignore whitespace Rev 8310 → Rev 8311

/trunk/wims/public_html/modules/adm/class/userscore/var.proc.csv
0,0 → 1,38
 
sec=!defof class_secure in wimshome/log/classes/$wims_class/.def
sec=!trim $sec
htest=!checkhost $sec
!if $wims_sup_secure<0 or ($sec!=$empty and $htest<1)
error=not_secure
!exit
!endif
 
typename=!defof class_typename in wimshome/log/classes/$wims_class/.def
classtype=!defof class_type in wimshome/log/classes/$wims_class/.def
 
#!if $wims_superclass!=$empty and $csvtype=upload
# error=not_superclass
# !exit
#!endif
 
!bound csvformat within xls,csv,tsv default xls
!default csvdownload=login,name
 
!if $csvtype=download
csvdownload=!trim $csvdownload
!if $csvdownload!=$empty and $usercnt>0
!read csv/download.proc
!endif
!endif
 
!if $csvtype=upload
!if $classtype isin 13 and $typename notwordof class course and\
($typename notwordof level or $wims_user!=supervisor)
error=not_class
!exit
!endif
!read csv/upload.proc
!endif
 
!reset csvtype