Subversion Repositories wimsdev

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
 tmp=!trim $csvdownload2
 csvdownload=$csvdownload $csvdownload2
 !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