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 |
|