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
          c=!replace internal $joker 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