Subversion Repositories wimsdev

sec=!defof class_secure in wimshome/log/classes/$wims_class/.def

sec=!trim $sec

htest=!checkhost $sec

!if $wims_sup_secure<0 or ($sec!=$empty and $htest<1)

 error=not_secure

 !exit

!endif

!!typename=!defof class_typename in wimshome/log/classes/$wims_class/.def

!!classtype=!defof class_type in wimshome/log/classes/$wims_class/.def

!bound csvformat within xls,csv,tsv default xls

!if $csvtype!=download

 !exit

!endif

!if $vote>0

  parmcnt=0

  !read $votedir/$vote.def

 quote="

 sep_csv=;

 sep_xls=;

 sep_tsv=$	$

 sep=$(sep_$csvformat)

 !default sep=$(sep_xls)

 fbase=data-$wims_class-vote-$vote

 fbase=!translate internal / to _ in $fbase

 fname=wimshome/$wims_sesdir/spreadsheet.$csvformat

 tit="$title_vote $vote"

 !writefile $fname $tit\

 !readdef $votedir/$vote.votes

 !readdef $votedir/$vote.comments

 !if $vote_option=anonymous or $csvoption=global

### en ligne les questions, en colonne le nombre de votants pour chaque réponse

  tableau=

  maxchoice=1

  !for t = 1 to $parmcnt

    maxchoice=$[max($maxchoice, $(choices$t))]

    line=Q.$t _

    !if $(type_comment$t)!=yes

     !for r = 0 to $[$(choices$t)]

      line=!append item _ $(vcnt_$(t)_$(r)) _ to $line

     !next

    !endif

    tableau =!append line $line to $tableau

    prel=!makelist _ $name_choice x _ for x = 0 to $maxchoice

  !next

  tableau=_,$prel\

$tableau

  !goto end

!endif

!if $vote_option=trace

 tableau=!makelist x for x = 1 to $vcnt

 tableau=!replace internal , by ; in $tableau

 tableau=!rows2lines $tableau

 line=!makelist _0_ for x=1 to $parmcnt

 !for u = 1 to $vcnt

    tableau=!replace line number $u by "$u"_,_$line in $tableau

 !next

 !for t = 1 to $parmcnt

  !if $(type_comment$t)!=yes

   !for l = 0 to $[$(choices$t)]

     v=$(votes_$(t)_$l)

     v1=!itemcnt $v

     !if $v1>0

      !for h = 1 to $v1

       line=!line $(v[$h]) of $tableau

       line=!replace item number $[$t+1] by _$(l)_ in $line

       tableau=!replace internal line number $(v[$h]) by $line in $tableau

      !next

     !endif

   !next

  !else

    cnt_prov=!itemcnt $(comment_$(t))

    !for u = 1 to $vcnt

       line=!line $u of $tableau

 ### changement de format - transitoire

       !if $u <= $cnt_prov

         c=!declosing $(comment_$(t)[$u])

       !else

         uprov=$[$u-$cnt_prov]

         c=!record $uprov of $votedir/$(vote)_$t.comments

       !endif

       c=!replace internal ; by -- in $c

       c=!replace internal , by - in $c

       line=!replace item number $[$t+1] by _$c _ in $line

       tableau=!replace internal line number $u by $line in $tableau

    !next

  !endif

 !next

 entete= !makelist _ Q.x _ for x=1 to $parmcnt

 tableau=_,$entete\

 $tableau

!endif

!if $vote_option=nominative

 tableau=!makelist x for x = 1 to $vcnt

 tableau=!replace internal , by ; in $tableau

 tableau=!rows2lines $tableau

 line=!makelist _0_ for x=1 to $parmcnt

 !for u = 1 to $vcnt

  tableau=!replace line number $u by "$u"_,_$line in $tableau

 !next

 cmp=0

 !for t = 1 to $parmcnt

  !if $(type_comment$t)!=yes

   !for l = 0 to $[$(choices$t)]

    v=$(votes_$(t)_$l)

    v1=!itemcnt $v

    !if $v1>0

     !for h = 1 to $v1

      !if supervisor/ notin $(v[$h])/

       u=!replace internal / by _ in $(v[$h])

       u=!replace internal @ by ___ in $u

       !if $(cnt_$u)=

        cmp=$[$cmp+1]

        cnt_$u=$cmp

        item1=$u

       !endif

       line=!line $(cnt_$u) of $tableau

       line=!replace item number 1 by $(v[$h])_ in $line

       line=!replace item number $[$t+1] by _$(l)_ in $line

       tableau=!replace internal line number $(cnt_$u) by $line in $tableau

      !endif

     !next

    !endif

   !next

 !endif

!next

entete= !makelist _ Q.x _ for x=1 to $parmcnt

 tableau=_,$entete\

 $tableau

 !goto end

!endif

:end

tableau=!replace internal _,_ by $sep in $tableau

!! !! the following messes up with username containing _

!! !! testing!

!!tableau=!replace internal _ by  in $tableau

tableau=!replace internal --- by  in $tableau

!appendfile $fname $tableau

infile=spreadsheet.$csvformat

outfile=$fbase.$csvformat

!mexec csv/getprep.sh

!endif

!reset csvtype