[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[GT] Minor performance patch for genericdbi.pm



This database module is including other modules which it doesn't need.
 This should be a seamless patch.
Index: DB/genericdbi.pm
===================================================================
--- DB/genericdbi.pm	(revision 647)
+++ DB/genericdbi.pm	(working copy)
@@ -8,9 +8,7 @@
 use vars qw(@ISA);
 
 use GT::DB;
-use GT::Prices;
 use GT::Conf;
-use GT::DateTime;
 use DBI;
 
 @ISA = qw(GT::DB);
@@ -135,7 +133,7 @@
 =cut
 sub get_last_prices {
     my ($self, $code, $limit, $timeframe) = @_;
-    $timeframe = $DAY unless ($timeframe);
+    $timeframe = $GT::DateTime::DAY unless ($timeframe);
     $limit = 99999999 if ($limit==-1);
 
     my $q = GT::Prices->new($limit);