Logs main nl events (create, delete, validate, cancel) (Closes #1393).

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

diff --git a/ChangeLog b/ChangeLog
index db63ff6..2c83e13 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -16,6 +16,7 @@ Bug/Wish:
     * Newsletter:
         - #664: Adds tool to search in nl archives                         -JAC
         - #908: Displays remaining lines and characters in submission      -JAC
+        - #1393: Logs main nl events (create, delete, validate, cancel)    -JAC
 
     * Payments:
         - #1398: Creates csv for payments                                  -JAC

diff --git a/modules/newsletter.php b/modules/newsletter.php
index 3f52c60..5428466 100644 (file)
--- a/modules/newsletter.php
+++ b/modules/newsletter.php
@@ -194,6 +194,9 @@ class NewsletterModule extends PLModule
         }
 
         if ($new == 'new') {
+            // Logs NL creation.
+            S::logger()->log('nl_issue_create', $nid);
+
             $id = $nl->createPending();
             pl_redirect($nl->adminPrefix() . '/edit/' . $id);
         }
@@ -353,6 +356,9 @@ class NewsletterModule extends PLModule
             $page->trigErrorRedirect("Une erreur est survenue lors de l'annulation de l'envoi.", $nl->adminPrefix());
         }
 
+        // Logs NL cancelling.
+        S::logger()->log('nl_mailing_cancel', $nid);
+
         $page->trigSuccessRedirect("L'envoi de l'annonce {$issue->title()} est annulé.", $nl->adminPrefix());
     }
 
@@ -382,6 +388,9 @@ class NewsletterModule extends PLModule
             $page->trigErrorRedirect("Une erreur est survenue lors de la validation de l'envoi.", $nl->adminPrefix());
         }
 
+        // Logs NL validation.
+        S::logger()->log('nl_mailing_valid', $nid);
+
         $page->trigSuccessRedirect("L'envoi de la newsletter {$issue->title()} a été validé.", $nl->adminPrefix());
     }
 
@@ -413,6 +422,9 @@ class NewsletterModule extends PLModule
             $page->trigErrorRedirect("Une erreur est survenue lors de la suppression de la lettre.", $nl->adminPrefix());
         }
 
+        // Logs NL deletion.
+        S::logger()->log('nl_issue_delete', $nid);
+
         $page->trigSuccessRedirect("La lettre a bien été supprimée.", $nl->adminPrefix());
     }
 

diff --git a/upgrade/1.1.0/14.log_actions.sql b/upgrade/1.1.0/14.log_actions.sql
new file mode 100644 (file)
index 0000000..5fef77d
--- /dev/null
+++ b/upgrade/1.1.0/14.log_actions.sql
@@ -0,0 +1,7 @@
+INSERT INTO  log_actions (text, description)
+     VALUES  ('nl_issue_create', 'création d\'un numéro d\'une newsletter'),
+             ('nl_issue_delete', 'suppression d\'un numéro d\une newsletter'),
+             ('nl_mailing_valid', 'validation de l\'envoi d\'un numéro d\'une newsletter'),
+             ('nl_mailing_cancel', 'annulation d\'envoi d\'un numéro d\'une newsletter');
+
+-- vim:set syntax=mysql: