Subversion Repositories wimsdev

!if $vote_status=$empty or \

	($wims_user!=supervisor and $vote_status notwordof 1 2)

 error=bad_vote

 job=home

 !changeto home.proc

!endif

wims_multiexec=pari maxima yacas

insmath_rawmath=yes

wims_backslash_insmath=yes

parmcnt=0

!reset uvname, uvval, uvcnt

!readdef $userfile

!readdef $votedir/$vote.votes

!default vcnt=0

!if $wims_user=supervisor or $vote_show>0

 !if $wims_user=supervisor

  showres=2

 !else

  showres=1

 !endif

 whovote_login=!sh cd $wims_home/log/classes/$wims_superclass/.users;\

grep -r "!set user_vote_$Vote=yes" * | cut -d":" -f1;

 whovote_login=!lines2items $whovote_login

 whovote=$empty

 whodontvote=$empty

 nb=!recordcnt wimshome/log/classes/$wims_class/.userlist

 !for k=1 to $nb

  tmp=!record $k of wimshome/log/classes/$wims_class/.userlist

  !distribute item $tmp into fn,ln,ll

  !if $ll isitemof $whovote_login

   whovote=!append item $fn $ln to $whovote

  !else

   whodontvote=!append item $fn $ln to $whodontvote

  !endif

 !next k

!else

 showres=0

!endif