Bedre utskrift.

1 files changed, 3 insertions, 2 deletions

diff --git a/frikanalen/bin/frikanalen-tonostats b/frikanalen/bin/frikanalen-tonostats
index 08452f5..c41243b 100755
--- a/frikanalen/bin/frikanalen-tonostats
+++ b/frikanalen/bin/frikanalen-tonostats
@@ -56,11 +56,12 @@ sub print_tono_stats {
     printf("Innslag med tono-musikk:   %d (%.1f%%)\n",   $with, 100 * $with / ($with+$without));
     printf("Innslag uten tono-musikk:  %d (%.1f%%)\n",$without, 100 *$without/($with+$without));
 
+    print "Andel\tmed\tuten\tnavn\n";
     for my $org (sort tonoorder keys %orgs) {
         my $tono = $orgs{$org}{tono} || 0;
         my $notono = $orgs{$org}{notono} || 0;
-        my $frac = int(100 * $tono / ($tono+$notono));
-        print "$frac\t$tono\t$notono\t$org\n";
+        my $frac = 100 * $tono / $with;
+        printf "%4.1f\t%d\t%d\t%s\n", $frac, $tono, $notono, $org;
         print join(" ", "  ", @{$orgs{$org}{tonoids}}), "\n"
             if $opts{'i'} && exists $orgs{$org}{tonoids};
     }