sub mmgb_getAllBooks {
    my $self = shift;
    my %parm = @_;
    $parm{direction} ||= 'ASC';
    my $dbh = $self->dbh;
    my $sth = $dbh->prepare(
	sprintf ('SELECT public."mmgb_getAllBooks"(%s, %s)',
	    $parm{mmgr_shortname} ? "character varying '$parm{mmgr_shortname}'"
	    			    : 'NULL',
	    "character varying '$parm{direction}'"
        )
    );
    $sth->execute;
    my @return;
    while (my @row = $sth->fetchrow_array) {
	push @return, @row; # got rid of \@row because each row is returned as a single string it seems
    }
    return \@return;
}