Committer: gprochaev
LJSUP-7716. Add 3.6. Admin/stats toolsU trunk/htdocs/admin/comm/elections.bml
Modified: trunk/htdocs/admin/comm/elections.bml =================================================================== --- trunk/htdocs/admin/comm/elections.bml 2011-01-27 11:07:05 UTC (rev 18129) +++ trunk/htdocs/admin/comm/elections.bml 2011-01-27 11:32:30 UTC (rev 18130) @@ -91,8 +91,18 @@ $ret .= "<p>Maintainers (voted already): " . $i . "</p>"; + $sth = $poll->journal->prepare ("SELECT userid, args FROM inviterecv WHERE commid = ?"); + $sth->execute ($poll->journalid); + while (my @row = $sth->fetchrow_array) { + my $args = $row[1]; + next unless $args =~ m#admin=1#; + push @alive_mainteiners, $row[0]; + } + + $ret .= "<p>Maintainers (total, including non-participants of the election): " . @alive_mainteiners . "</p>"; + $ret .= "<br/><h3>Current state of election:</h3>"; - $ret .= "<ul style='padding:0;list-style:none;'>"; + $ret .= "<ul style='padding:0;list-style:none;'>"; foreach my $u (values %$users) { my $vote_for = $items[$result_users{$u->userid} - 1]->{item}; LJ::Poll->clean_poll(\$vote_for);