Patch from Dennis Haney <davh@davh.dk> to find the aliases of the nicks in

Most referenced nicks

modules/Pisg/HTMLGenerator.pm

@@ -1432,12 +1432,15 @@ sub _mostreferencednicks
     my $self = shift;
 
     my %usages;
+    my %usagesnicks;
 
     foreach my $word (sort keys %{ $self->{stats}->{wordcounts} }) {
-        next unless exists $self->{stats}->{lines}{$word};
         next if is_ignored($word);
-        $usages{$word} = $self->{stats}->{wordcounts}{$word};
-    }
+        my $localnick = find_alias($word);
+        next unless exists $self->{stats}->{lines}{$localnick};
+        $usages{$localnick} += $self->{stats}->{wordcounts}{$word};
+        $usagesnicks{$localnick} = $self->{stats}->{wordnicks}{$word};
+      }
 
     my @popular = sort { $usages{$b} <=> $usages{$a} } keys %usages;
 
@@ -1454,8 +1457,8 @@ sub _mostreferencednicks
             last unless $i < $#popular;
             my $a = $i + 1;
             my $popular   = $popular[$i];
-            my $wordcount = $self->{stats}->{wordcounts}{$popular[$i]};
-            my $lastused  = $self->{stats}->{wordnicks}{$popular[$i]};
+            my $wordcount = $usages{$popular[$i]};
+            my $lastused  = $usagesnicks{$popular[$i]};
 
             my $bgcolor;
             if ($a == 1) {