Subversion Repositories wimsdev

Rev

Rev 2255 | Rev 12479 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2255 Rev 7198
Line 24... Line 24...
24
 sep=$(sep_$csvformat)
24
 sep=$(sep_$csvformat)
25
 !default sep=$(sep_xls)
25
 !default sep=$(sep_xls)
26
 fbase=data-$wims_class-vote-$vote
26
 fbase=data-$wims_class-vote-$vote
27
 fbase=!translate internal / to _ in $fbase
27
 fbase=!translate internal / to _ in $fbase
28
 fname=wimshome/$wims_sesdir/spreadsheet.$csvformat
28
 fname=wimshome/$wims_sesdir/spreadsheet.$csvformat
29
 
29
 
30
 tit="$title_vote $vote"
30
 tit="$title_vote $vote"
31
 !writefile $fname $tit\
31
 !writefile $fname $tit\
32
 
32
 
33
 !readdef $votedir/$vote.votes
33
 !readdef $votedir/$vote.votes
34
 !readdef $votedir/$vote.comments
34
 !readdef $votedir/$vote.comments
35
 
35
 
36
 !if $vote_option=anonymous or $csvoption=global
36
 !if $vote_option=anonymous or $csvoption=global
37
### en ligne les questions, en colonne le nombre de votants pour chaque réponse
37
### en ligne les questions, en colonne le nombre de votants pour chaque réponse
Line 49... Line 49...
49
    prel=!makelist _ $name_choice x _ for x = 0 to $maxchoice
49
    prel=!makelist _ $name_choice x _ for x = 0 to $maxchoice
50
  !next
50
  !next
51
  tableau=_,$prel\
51
  tableau=_,$prel\
52
$tableau
52
$tableau
53
  !goto end
53
  !goto end
54
!endif 
54
!endif
55
!if $vote_option=trace
55
!if $vote_option=trace
56
 tableau=!makelist x for x = 1 to $vcnt
56
 tableau=!makelist x for x = 1 to $vcnt
57
 tableau=!replace internal , by ; in $tableau
57
 tableau=!replace internal , by ; in $tableau
58
 tableau=!rows2lines $tableau
58
 tableau=!rows2lines $tableau
59
 line=!makelist _0_ for x=1 to $parmcnt
59
 line=!makelist _0_ for x=1 to $parmcnt
60
 !for u = 1 to $vcnt
60
 !for u = 1 to $vcnt
61
    tableau=!replace line number $u by "$u"_,_$line in $tableau
61
    tableau=!replace line number $u by "$u"_,_$line in $tableau
62
 !next
62
 !next
63
 !for t = 1 to $parmcnt
63
 !for t = 1 to $parmcnt
64
  !if $(type_comment$t)!=yes
64
  !if $(type_comment$t)!=yes
65
   !for l = 0 to $[$(choices$t)]
65
   !for l = 0 to $[$(choices$t)]
66
     v=$(votes_$(t)_$l)
66
     v=$(votes_$(t)_$l)
67
     v1=!itemcnt $v
67
     v1=!itemcnt $v
68
     !if $v1>0
68
     !if $v1>0
69
      !for h = 1 to $v1
69
      !for h = 1 to $v1
70
       line=!line $(v[$h]) of $tableau 
70
       line=!line $(v[$h]) of $tableau
71
       line=!replace item number $[$t+1] by _$(l)_ in $line
71
       line=!replace item number $[$t+1] by _$(l)_ in $line
72
       tableau=!replace internal line number $(v[$h]) by $line in $tableau
72
       tableau=!replace internal line number $(v[$h]) by $line in $tableau
73
      !next
73
      !next
74
     !endif
74
     !endif
75
   !next
75
   !next
Line 118... Line 118...
118
       !if $(cnt_$u)=
118
       !if $(cnt_$u)=
119
        cmp=$[$cmp+1]
119
        cmp=$[$cmp+1]
120
        cnt_$u=$cmp
120
        cnt_$u=$cmp
121
        item1=$u
121
        item1=$u
122
       !endif
122
       !endif
123
       line=!line $(cnt_$u) of $tableau 
123
       line=!line $(cnt_$u) of $tableau
124
       line=!replace item number 1 by $(v[$h])_ in $line
124
       line=!replace item number 1 by $(v[$h])_ in $line
125
       line=!replace item number $[$t+1] by _$(l)_ in $line
125
       line=!replace item number $[$t+1] by _$(l)_ in $line
126
       tableau=!replace internal line number $(cnt_$u) by $line in $tableau
126
       tableau=!replace internal line number $(cnt_$u) by $line in $tableau
127
      !endif
127
      !endif
128
     !next
128
     !next
Line 133... Line 133...
133
entete= !makelist _ Q.x _ for x=1 to $parmcnt
133
entete= !makelist _ Q.x _ for x=1 to $parmcnt
134
 tableau=_,$entete\
134
 tableau=_,$entete\
135
 $tableau
135
 $tableau
136
 !goto end
136
 !goto end
137
!endif
137
!endif
138
 
138
 
139
:end
139
:end
140
tableau=!replace internal _,_ by $sep in $tableau
140
tableau=!replace internal _,_ by $sep in $tableau
141
!! !! the following messes up with username containing _
141
!! !! the following messes up with username containing _
142
!! !! testing!
142
!! !! testing!
143
!!tableau=!replace internal _ by  in $tableau
143
!!tableau=!replace internal _ by  in $tableau
144
tableau=!replace internal --- by  in $tableau
144
tableau=!replace internal --- by  in $tableau
145
 
145
 
146
!appendfile $fname $tableau
146
!appendfile $fname $tableau
147
 
147
 
148
infile=spreadsheet.$csvformat
148
infile=spreadsheet.$csvformat
149
outfile=$fbase.$csvformat
149
outfile=$fbase.$csvformat
150
!mexec csv/getprep.sh
150
!mexec csv/getprep.sh