sub mmgb_getAllBooks {
  my $self = shift;   
  my $dbh = $self->dbh;
  my %parm = @_;

  my $p1 = $parm{mmgr_shortname} ? "character varying '$parm{mmgr_shortname}'"
                                 : 'NULL';    
  my $p2 = $parm{direction} ||= 'ASC'; 
    
  my $sql = "SELECT * FROM mmgb_getAllBooks($p1)
             ORDER BY c7 $p2";
    
  my $sth = $dbh->prepare($sql);
  $sth->execute();
  return $sth->fetchall_arrayref();
}