Improves group members csv, mainly for excel.

Signed-off-by: Stéphane Jacob <sj@m4x.org>

diff --git a/modules/lists.php b/modules/lists.php
index e53ea7a..6dcef34 100644 (file)
--- a/modules/lists.php
+++ b/modules/lists.php
@@ -346,11 +346,11 @@ class ListsModule extends PLModule
         $this->prepare_client($page);
         $members = $this->client->get_members($liste);
         $list = list_fetch_basic_info(list_extract_members($members[1]));
-        pl_cached_content_headers('text/x-csv', 1);
+        pl_cached_content_headers('text/x-csv', 'iso-8859-1', 1);
 
-        echo "nom,promo\n";
-        echo implode("\n", $list);
-        exit;
+        echo utf8_decode("Nom;Prénom;Promotion\n");
+        echo utf8_decode(implode("\n", $list));
+        exit();
     }
 
     function handler_annu($page, $liste = null, $action = null, $subaction = null)

diff --git a/modules/lists/lists.inc.php b/modules/lists/lists.inc.php
index 891ef94..c0ffb09 100644 (file)
--- a/modules/lists/lists.inc.php
+++ b/modules/lists/lists.inc.php
@@ -84,9 +84,9 @@ function list_fetch_basic_info($members)
     foreach ($members as $member) {
         $user = User::getSilent($member);
         if (!$user) {
-            $res[] = $member . ',,';
+            $res[] = $member . ';;';
         } else {
-            $res[] = $user->directoryName() . ',' . $user->promo();
+            $res[] = $user->lastName() . ';' . $user->firstName() . ';' . $user->promo();
         }
     }
     return $res;