Versioned updated to get fields of current class level

DataObject::database_fields only returns fields of current class heirarchy level, not including all ancestor fields. Fixed to compensate.