Fix error #47, error when counting tops from affiliations (just an 'u…

…' ¬¬)

vizgrimoire/R/ITS.R

@@ -1046,12 +1046,12 @@ GetCompanyTopClosers <- function(company_name, startdate, enddate,
                      ",identities_db,".companies com,
                      ",identities_db,".upeople up
                 WHERE ", GetFiltersCompaniesITS()," AND ", closed_condition, "
-                      AND pup.people_id = up.id
+                      AND pup.upeople_id = up.id
                       AND upc.company_id = com.id
                       AND com.name = ",company_name,"
                       AND changed_on >= ",startdate," AND changed_on < ",enddate,
                       affiliations, "
-                GROUP BY changed_by ORDER BY closed DESC LIMIT 10;",sep='')
+                GROUP BY up.identifier ORDER BY closed DESC LIMIT 10;",sep='')
     query <- new ("Query", sql = q)
     data <- run(query)
     return (data)