Subversion Repositories wimsdev

Compare Revisions

Ignore whitespace Rev 12464 → Rev 12465

/trunk/wims/public_html/modules/adm/class/userscore/var.proc.csv
21,9 → 21,9
!default csvdownload=login,name
 
!if $csvtype=download
csvdownload=!trim $csvdownload
!if techvar isitemof $csvdownload
!! add technical variable list to download list
csvdownload=!trim $csvdownload
!if techvar isitemof $csvdownload
!! add technical variable list to download list
csvdownload=!listcomplement techvar in $csvdownload
nb=!linecnt $tv_listtechvar
!for k=1 to $nb
32,9 → 32,9
code_user_techvar_$name=var_$(tv_listtechvar[$k;1])
name_user_techvar_$name=$(tv_listtechvar[$k;1])
!next k
!endif
!if regvar isitemof $csvdownload
!! add register variable list to download list
!endif
!if regvar isitemof $csvdownload
!! add register variable list to download list
!if $wims_superclass!=$empty
regvar_name=!defof class_regvars in wimshome/log/classes/$wims_superclass/.def
!else
44,24 → 44,24
csvdownload=!listcomplement regvar in $csvdownload
!reset regvarlist
!for k=1 to $regvar_cnt
name_regprop$k=$(regvar_name[$k])
csvdownload=!append item regprop$k to $csvdownload
regvarlist=!append item regprop$k to $regvarlist
name_regprop$k=$(regvar_name[$k])
csvdownload=!append item regprop$k to $csvdownload
regvarlist=!append item regprop$k to $regvarlist
!next k
!endif
!endif
 
!if $csvdownload!=$empty and $usercnt>0
!read csv/download.proc
!endif
!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\
!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
error=not_class
!exit
!endif
!read csv/upload.proc
!endif
 
!reset csvtype
69,4 → 69,3
!set wims_ariane_self=no
!set wims_ariane=!append line csv,8 to\
$wims_ariane