use Onis::Language (qw(translate));
use Onis::Data::Core (qw(register_plugin));
use Onis::Data::Persistent ();
+use Onis::Users (qw(nick_to_name));
register_plugin ('TEXT', \&add);
register_plugin ('ACTION', \&add);
$i++;
my ($word, $count, $nick) = @$_;
+ my $name = nick_to_name ($nick) || $nick;
print $fh " <tr>\n",
qq# <td class="numeration">$i</td>\n#,
qq# <td>$word</td>\n#,
qq# <td>$count</td>\n#,
- qq# <td class="nick">$nick</td>\n#,
+ qq# <td class="nick">$name</td>\n#,
qq# </tr>\n#;
}
print $fh "</table>\n\n";