diff --git a/Koha/Patron/Debarments.pm b/Koha/Patron/Debarments.pm
index 2ac587307f..8890fedf4f 100644
--- a/Koha/Patron/Debarments.pm
+++ b/Koha/Patron/Debarments.pm
@@ -20,6 +20,7 @@ package Koha::Patron::Debarments;
 use Modern::Perl;
 
 use C4::Context;
+use C4::Log qw( logaction );
 
 use Koha::Patron::Restriction::Types;
 use Koha::Patron::Restrictions;
@@ -86,6 +87,9 @@ sub AddDebarment {
 
     UpdateBorrowerDebarmentFlags($borrowernumber);
 
+    logaction( "MEMBERS", "CREATE_RESTRICTION", $borrowernumber, $restriction )
+        if C4::Context->preference("BorrowersLog");
+
     return $restriction ? 1 : 0;
 }
 
@@ -108,6 +112,9 @@ sub DelDebarment {
 
     UpdateBorrowerDebarmentFlags($borrowernumber);
 
+    logaction( "MEMBERS", "DELETE_RESTRICTION", $borrowernumber, q{} )
+        if C4::Context->preference("BorrowersLog");
+
     return $r;
 }
 
@@ -149,7 +156,13 @@ sub ModDebarment {
 
     my $r = C4::Context->dbh->do( $sql, {}, ( @values, $borrower_debarment_id ) );
 
-    UpdateBorrowerDebarmentFlags( _GetBorrowernumberByDebarmentId($borrower_debarment_id) );
+    my $borrowernumber = _GetBorrowernumberByDebarmentId($borrower_debarment_id);
+    UpdateBorrowerDebarmentFlags($borrowernumber);
+
+    logaction(
+        "MEMBERS", "MODIFY_RESTRICTION", $borrowernumber,
+        Koha::Patron::Restrictions->find($borrower_debarment_id)
+    ) if C4::Context->preference("BorrowersLog");
 
     return $r;
 }