From: GeniusTrader C. r. <ra...@ge...> - 2003-01-26 00:16:39
|
Update of /bourse/cvsroot/GT In directory arrakis:/scratch/tmp/cvs-serv6825 Modified Files: DB.pm Log Message: - First set of modifications to be able to retrieve names of stocks from the database. Useful for the new scan.pl. --- /bourse/cvsroot/GT/DB.pm 2002/10/06 15:39:24 1.3 +++ /bourse/cvsroot/GT/DB.pm 2003/01/25 23:14:17 1.4 @@ -17,4 +17,16 @@ =cut +sub get_name { + my ($self, $code) = @_; + + my $name = $self->get_db_name($code); + return $name if (defined($name) && $name); + return ""; +} + +sub get_db_name { + return undef; +} + 1; |