diff options
| author | Petter Reinholdtsen <pere@hungry.com> | 2011-05-03 08:42:14 +0200 |
|---|---|---|
| committer | Petter Reinholdtsen <pere@hungry.com> | 2011-05-03 08:42:14 +0200 |
| commit | 654ee3925cdd98bac795026d4dcee6e4012524d5 (patch) | |
| tree | f29a383a828354a2749133a335de3e7890a6f3ee | |
| parent | 3b2d60fcd9428d27c1b2c5ffc58e018bf376189b (diff) | |
Avoid long fraction when showing percent answered.
| -rwxr-xr-x | web-admin/index.cgi | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/web-admin/index.cgi b/web-admin/index.cgi index 0ee61b516..43af95eca 100755 --- a/web-admin/index.cgi +++ b/web-admin/index.cgi @@ -148,7 +148,7 @@ sub admin_summary ($) { $questionnaires{0} ||= 0; $questionnaires{1} ||= 0; $questionnaires{total} = $questionnaires{0} + $questionnaires{1}; - my $questionnaires_pc = $questionnaires{total} ? $questionnaires{1} / $questionnaires{total} * 100 : 'na'; + my $questionnaires_pc = $questionnaires{total} ? sprintf('%d', $questionnaires{1} / $questionnaires{total} * 100) : 'na'; print $q->ul( $q->li(sprintf(_("<strong>%d</strong> live problems"), $total_problems_live)), |