Просмотр исходного кода

Fixed warning when users didn't say any words.

Christoph Berg 22 лет назад
Родитель
Сommit
6f6be9fb15
2 измененных файлов с 4 добавлено и 2 удалено
  1. 1 0
      docs/Changelog
  2. 3 2
      modules/Pisg/HTMLGenerator.pm

+ 1 - 0
docs/Changelog

@@ -6,6 +6,7 @@ pisg (x.xx)
    shr3kst3r@hushmail.com/Andreas Blaafladt).
    shr3kst3r@hushmail.com/Andreas Blaafladt).
    * Added option BigNumbersThreshold to make previously undocumented behavior
    * Added option BigNumbersThreshold to make previously undocumented behavior
    configurable.
    configurable.
+   * Fixed warning when users didn't say any words. Thanks, Torbjörn Svensson.
 
 
 pisg (0.56) - Sat Jun, 19th 2004
 pisg (0.56) - Sat Jun, 19th 2004
    * Fix parsing of energymech kick messages and modes (thanks, optika81)
    * Fix parsing of energymech kick messages and modes (thanks, optika81)

+ 3 - 2
modules/Pisg/HTMLGenerator.pm

@@ -1893,9 +1893,10 @@ sub _user_wordtimes
     my $nick  = shift;
     my $nick  = shift;
     my $top   = shift;
     my $top   = shift;
 
 
-    my $bar      = "";
-    my $len      = ($self->{stats}->{words}{$nick} / $self->{stats}->{words}{$top}) * 100;
+    $self->{stats}->{words}{$nick} ||= 0;
+    my $len = ($self->{stats}->{words}{$nick} / $self->{stats}->{words}{$top}) * 100;
 
 
+    my $bar = "";
     for (my $i = 0; $i <= 3; $i++) {
     for (my $i = 0; $i <= 3; $i++) {
         next if not defined $self->{stats}->{word_times}{$nick}[$i];
         next if not defined $self->{stats}->{word_times}{$nick}[$i];
         my $w = int(($self->{stats}->{word_times}{$nick}[$i] / $self->{stats}->{words}{$nick}) * $len);
         my $w = int(($self->{stats}->{word_times}{$nick}[$i] / $self->{stats}->{words}{$nick}) * $len);