Subversion Repositories wimsdev

Rev

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
       name_regprop$k=$(regvar_name[$k])
47
      name_regprop$k=$(regvar_name[$k])
48
       csvdownload=!append item regprop$k to $csvdownload
48
      csvdownload=!append item regprop$k to $csvdownload
49
       regvarlist=!append item regprop$k to $regvarlist
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
 
-