Rev 10850 | Rev 14088 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 10850 | Rev 12465 | ||
---|---|---|---|
Line 19... | Line 19... | ||
19 | !!for ods the script csv/mkODS.py is not there. |
19 | !!for ods the script csv/mkODS.py is not there. |
20 | !bound csvformat within $csvformatlist default csv |
20 | !bound csvformat within $csvformatlist default csv |
21 | !default csvdownload=login,name |
21 | !default csvdownload=login,name |
22 | 22 | ||
23 | !if $csvtype=download |
23 | !if $csvtype=download |
24 | csvdownload=!trim $csvdownload |
24 | csvdownload=!trim $csvdownload |
25 | !if techvar isitemof $csvdownload |
25 | !if techvar isitemof $csvdownload |
26 | !! add technical variable list to download list |
26 | !! add technical variable list to download list |
27 | csvdownload=!listcomplement techvar in $csvdownload |
27 | csvdownload=!listcomplement techvar in $csvdownload |
28 | nb=!linecnt $tv_listtechvar |
28 | nb=!linecnt $tv_listtechvar |
29 | !for k=1 to $nb |
29 | !for k=1 to $nb |
30 | name=$(tv_listcode[$k]) |
30 | name=$(tv_listcode[$k]) |
31 | csvdownload=!append item techvar_$name to $csvdownload |
31 | csvdownload=!append item techvar_$name to $csvdownload |
32 | code_user_techvar_$name=var_$(tv_listtechvar[$k;1]) |
32 | code_user_techvar_$name=var_$(tv_listtechvar[$k;1]) |
33 | name_user_techvar_$name=$(tv_listtechvar[$k;1]) |
33 | name_user_techvar_$name=$(tv_listtechvar[$k;1]) |
34 | !next k |
34 | !next k |
35 | !endif |
35 | !endif |
36 | !if regvar isitemof $csvdownload |
36 | !if regvar isitemof $csvdownload |
37 | !! add register variable list to download list |
37 | !! add register variable list to download list |
38 | !if $wims_superclass!=$empty |
38 | !if $wims_superclass!=$empty |
39 | regvar_name=!defof class_regvars in wimshome/log/classes/$wims_superclass/.def |
39 | regvar_name=!defof class_regvars in wimshome/log/classes/$wims_superclass/.def |
40 | !else |
40 | !else |
41 | regvar_name=!defof class_regvars in wimshome/log/classes/$wims_class/.def |
41 | regvar_name=!defof class_regvars in wimshome/log/classes/$wims_class/.def |
42 | !endif |
42 | !endif |
43 | regvar_cnt=!itemcnt $regvar_name |
43 | regvar_cnt=!itemcnt $regvar_name |
44 | csvdownload=!listcomplement regvar in $csvdownload |
44 | csvdownload=!listcomplement regvar in $csvdownload |
45 | !reset regvarlist |
45 | !reset regvarlist |
46 | !for k=1 to $regvar_cnt |
46 | !for k=1 to $regvar_cnt |
47 |
|
47 | name_regprop$k=$(regvar_name[$k]) |
48 |
|
48 | csvdownload=!append item regprop$k to $csvdownload |
49 |
|
49 | regvarlist=!append item regprop$k to $regvarlist |
50 | !next k |
50 | !next k |
51 | !endif |
51 | !endif |
52 | 52 | ||
53 | !if $csvdownload!=$empty and $usercnt>0 |
53 | !if $csvdownload!=$empty and $usercnt>0 |
54 | !read csv/download.proc |
54 | !read csv/download.proc |
55 | !endif |
55 | !endif |
56 | !endif |
56 | !endif |
57 | 57 | ||
58 | !if $csvtype=upload |
58 | !if $csvtype=upload |
59 | !if $classtype isin 13 and $typename notwordof class course and\ |
59 | !if $classtype isin 13 and $typename notwordof class course and\ |
60 | ($typename notwordof level or $wims_user!=supervisor) |
60 | ($typename notwordof level or $wims_user!=supervisor) |
61 | error=not_class |
61 | error=not_class |
62 | !exit |
62 | !exit |
63 | !endif |
63 | !endif |
64 | !read csv/upload.proc |
64 | !read csv/upload.proc |
65 | !endif |
65 | !endif |
66 | 66 | ||
67 | !reset csvtype |
67 | !reset csvtype |
68 | 68 | ||
69 | !set wims_ariane_self=no |
69 | !set wims_ariane_self=no |
70 | !set wims_ariane=!append line csv,8 to\ |
70 | !set wims_ariane=!append line csv,8 to\ |
71 | $wims_ariane |
71 | $wims_ariane |
72 | - |