sub new
{
   my ($class,$db) = @_;
   my $self = {};
   bless $self, $class;
   $self->{db} = $db;
   return $self;
}