Subversion Repositories wimsdev

$table_header

 $table_hdtr

  <th>$name_option</th><th>$name_value</th>

 </tr>

 $table_tr<td>$wims_name_title</td><td>$vote_title</td></tr>

 $table_tr<td>$wims_name_Type</td>

  <td>$(name_$(vote_option))</td>

 </tr>

 $table_tr

  <td>$wims_name_Status</td>

  <td>$(name_$(vote_status))</td>

 </tr>

 $table_tr

  <td>$name_result</td>

  <td>

   !item $vote_show+1 of $name_hide,$name_publish

   !if $showres>0

      

     !href cmd=reply&job=showresult&vote=$vote $name_showresult

   !endif

  </td>

 </tr>

 $table_tr<td>$name_thisvote_answer</td><td>$vcnt</td></tr>

 $table_tr

  <td>$name_whovote</td>

  <td>

   !if $vote_whovoteshow=1

    !let nb=!itemcnt $whovote

    !if $nb=0

     $name_novotant

    !else

     !if $nb<=5

      $name_notenough

     !else

      $whovote

     !endif

    !endif

   !else

    $name_hide2

   !endif

  </td>

 </tr>

$table_end

!if $wims_user=supervisor

 !if $wims_theme!=standard

  !href cmd=reply&job=edit $wims_name_change

  !href cmd=reply&job=csv $wims_name_csv

 <p>

 !endif

 !set wims_menu_items=!append line change,1,cmd=reply&job=edit\

  csv,1,cmd=reply&job=csv\

  to $wims_menu_items

!endif

!if $vote_status=2

 !read $votedir/$vote.def

 !goto comments

!endif

!if $(user_vote_$Vote)!=$empty

 !if $vote_option!=nominative

  $name_thisvote_already1<p>

  !goto end

 !else

  $name_thisvote_already2<p>

  !goto form

 !endif

!else

 $name_give_your_choice<p>

 :form

 !if $wims_user!=supervisor

  !form reply

  <input type=hidden name="job" value=vote>

  !set m_formed=yes

 !endif

!endif

!read $votedir/$vote.def

!if $m_formed=yes and $wims_user!=supervisor

 <p><center>

 <input type=submit value="$wims_name_tosave">

 </center></form>

!endif

:comments

!exit

!! wait en see needed between this comment

!readdef $votedir/$vote.comments

!if ($wims_user=supervisor or ($vote_show>0 and $m_formed!=yes)) and $vote_option!=nominative

<p><b>$name_comments</b> :

</p><p>

!for i=1 to $parmcnt

 !if $(type_comment$i)=yes

  !set comment_$i = !replace internal --- by $\

 $<br>- in $(comment_$i)

 $i :

 $(comment_$i)

 !set rcnt=!recordcnt $votedir/$(vote)_$i.comments

 !for r_j=1 to $rcnt

 <br>-

  !record $r_j of $votedir/$(vote)_$i.comments

 !next

</p><p>

 !endif

 </p>

!next

!endif

!if $wims_user=supervisor and $vote_option!=anonymous

 <p> $name_details

 !for i=1 to $parmcnt

  !for c=1 to $(choices$i)

   !if /supervisor/ notin $c/

    <p>$i-

    !item $c of $(chlist$i)

 <br> <pre>

    !for u in $(votes_$(i)_$c)

     !if $vote_option=nominative

      !set U=!translate internal / to , in $u

      !readproc adm/class/userdef classes,$U

      !defof user_lastname, user_firstname in $userdef

       ($u)

     !else

       ($u)

     !endif

    !next u

   </pre>

   !endif

  !next c

 !next i

!endif

:end