Index: pcb-rnd-poll.cgi
===================================================================
--- pcb-rnd-poll.cgi	(revision 1589)
+++ pcb-rnd-poll.cgi	(revision 1590)
@@ -303,6 +303,27 @@
 	done < "$sesdir/$QS_SID"
 }
 
+collect_votes()
+{
+	local all vt bn
+	all=`find_all`
+
+	if test -z "$SES_EMAIL"
+	then
+		return
+	fi
+
+	for n in $all
+	do
+		bn=`basename $n`
+		vt=`eval echo "\\$QS_vote_$bn"`
+		if test ! -z "$vt"
+		then
+			echo "$vt|$SES_EMAIL" >> $db/votes/$bn
+		fi
+	done
+}
+
 cmd_enter()
 {
 	export subs_current="enter voting"
@@ -400,7 +421,9 @@
 	ses_load
 fi
 
+collect_votes
 
+
 case "$QS_cmd"
 in
 	enter) cmd_enter ;;