sub selectAttributesForReport { my ($self, $viewName) = @_; my $result; my $attrHash; ### SQL TO GET THE DATA ### my $dbm = $self->getDBManager(); my $sqlText = $dbm->getSQL('selectAttributesForReport'); my $dbh = $dbm->getDBH(); my $sth = $dbh->prepare($sqlText); $self->logger_sql->info("Executing SQL: $sqlText"); $sth->execute($viewName); #push the data onto our results while ( my $resultRowRef = $sth->fetchrow_hashref() ) { $attrHash->{OBJECT} = $resultRowRef->{'ATTRNAME'}; $attrHash->{OBJECTATTRIB} = $resultRowRef->{'ATTRNAME2'}; push (@$result, $attrHash); } ##There were no results. if(not $result) { $self->logger->error("There was no information available for the view: [$viewName]"); } return $result; }