Changeset 2318 for trunk

Timestamp:

12/06/19 00:43:13 (4 years ago)

Author:

nanardon

Message:

Clean error message at end of request processing

Location:

trunk

Files:

• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Root.pm (modified) (2 diffs)
• LATMOS-Accounts/lib/LATMOS/Accounts/Log.pm (modified) (1 diff)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Root.pm

@@ -10 +10 @@
 use Date::Parse;
 use I18N::AcceptLanguage;
+use LATMOS::Accounts::Log;
 
 #
@@ -159 +160 @@
     $c->forward($c->view('TT')) unless($c->res->body);
     $c->model('Accounts')->db->rollback;
+    LATMOS::Accounts::Log::flush_last_message();
 
     # DBNeedSync is set by the model when commit() is by base

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Log.pm

@@ -166 +166 @@
 }
 
+=head2 flush_last_message ($level)
+
+Clean message history, if defined on message for C<$level> are cleaned
+
+=cut
+
+sub flush_last_message {
+    my ($level) = @_;
+
+    if ( defined( $level ) ) {
+        $lastmessages{$level} = undef;
+    } else {
+        %lastmessages = ();
+    }
+}
+
 =head2 la_log($level, @sprintf_args)