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 
 
 -