More bugfixes..

diff --git a/lib/Onis/Plugins/Bignumbers.pm b/lib/Onis/Plugins/Bignumbers.pm
index 00f298c..7e37935 100644 (file)
--- a/lib/Onis/Plugins/Bignumbers.pm
+++ b/lib/Onis/Plugins/Bignumbers.pm
@@ -105,11 +105,16 @@ sub calculate
                $CalcData->{$main}{'uppercase'}    += $uppercase;
                $CalcData->{$main}{'smiley_happy'} += $smiley_happy;
                $CalcData->{$main}{'smiley_sad'}   += $smiley_sad;
+
+               require Data::Dumper;
+               print STDOUT Data::Dumper->Dump ([$CalcData->{$main}], ["CalcData->{$main}"]);
        }
 }
 
 sub output
 {
+       calculate ();
+
        my $first_nick;
        my $first_name;
        my $second_nick;

diff --git a/lib/Onis/Plugins/Core.pm b/lib/Onis/Plugins/Core.pm
index 1b05bab..fc8e3db 100644 (file)
--- a/lib/Onis/Plugins/Core.pm
+++ b/lib/Onis/Plugins/Core.pm
@@ -380,8 +380,13 @@ sub calculate
                }
                if (defined ($QuoteCache->{$nick}))
                {
-                       my @new = sort (sub { $b->[0] <=> $a->[0] }, @{$QuoteCache->{$nick}}, @{$QuoteData->{$main}});
+                       my @new = ();
+                       push (@new, @{$QuoteData->{$main}}) if (@{$QuoteData->{$main}});
+                       push (@new, @{$QuoteCache->{$nick}}) if (@{$QuoteCache->{$nick}});
+
+                       @new = sort { $b->[0] <=> $a->[0] } (@new);
                        splice (@new, $QuoteCacheSize) if (scalar (@new) > $QuoteCacheSize);
+
                        $QuoteData->{$main} = \@new;
                }
        }
@@ -585,6 +590,10 @@ EOF
                        {
                                my $num = scalar (@{$QuoteData->{$nick}});
                                my $rand = int (rand ($num));
+
+                               require Data::Dumper;
+                               print STDOUT Data::Dumper->Dump ([$rand, $QuoteData->{$nick}], ['rand', "QuoteData->{$nick}"]);
+                               
                                $quote = html_escape ($QuoteData->{$nick}[$rand][1]);
                        }