sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed a bug in TOP10.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-02-25 22:21:51 -07:00
1 parent 2e7ab78f7e
commit 88e8930aff
1 file changed
+5 -5
Download Patch File Download Diff File Expand all files Collapse all files
modules/UNO.pm
+5 -5
View File
@@ -603,14 +603,14 @@ sub cmd_uno {
# Get data. # Get data.
my $dbq = $Auto::DB->prepare('SELECT * FROM unoscores') or notice($src->{svr}, $src->{nick}, trans('An error occurred').q{.}) and return; my $dbq = $Auto::DB->prepare('SELECT * FROM unoscores') or notice($src->{svr}, $src->{nick}, trans('An error occurred').q{.}) and return;
$dbq->execute or notice($src->{svr}, $src->{nick}, trans('An error occurred').q{.}) and return; $dbq->execute or notice($src->{svr}, $src->{nick}, trans('An error occurred').q{.}) and return;
my $data = $dbq->fetchall_hashref('score') or notice($src->{svr}, $src->{nick}, trans('An error occurred').q{.}) and return; my $data = $dbq->fetchall_hashref('player') or notice($src->{svr}, $src->{nick}, trans('An error occurred').q{.}) and return;
# Check if there's any scores. # Check if there's any scores.
if (keys %$data) { if (keys %$data) {
my $str; my $str;
my $i = 0; my $i = 0;
foreach (sort {$b <=> $a} keys %$data) { foreach (sort {$data->{$b}->{score} <=> $data->{$a}->{score}} keys %$data) {
if ($i > 10) { last; } if ($i > 10) { last; }
$str .= ", \2".$data->{$_}->{player}.":$_\2"; $str .= ", \2$_:".$data->{$_}->{score}."\2";
$i++; $i++;
} }
$str = substr $str, 2; $str = substr $str, 2;
@@ -1310,7 +1310,7 @@ sub on_rehash {
# Start initialization. # Start initialization.
API::Std::mod_init('UNO', 'Xelhua', '1.02', '3.0.0a6', __PACKAGE__); API::Std::mod_init('UNO', 'Xelhua', '1.03', '3.0.0a6', __PACKAGE__);
# vim: set ai et sw=4 ts=4: # vim: set ai et sw=4 ts=4:
# build: perl=5.010000 # build: perl=5.010000
@@ -1322,7 +1322,7 @@ UNO - Three editions of the UNO card game
=head1 VERSION =head1 VERSION
1.02 1.03
=head1 SYNOPSIS =head1 SYNOPSIS