Bug 21063: Add "Columns settings" for ILL

[koha.git] / Koha / Illrequest.pm

diff --git a/Koha/Illrequest.pm b/Koha/Illrequest.pm
index 13c0b11..7158aa5 100644 (file)
--- a/Koha/Illrequest.pm
+++ b/Koha/Illrequest.pm
@@ -25,6 +25,7 @@ use File::Basename qw( basename );
 use Encode qw( encode );
 use Mail::Sendmail;
 use Try::Tiny;
+use DateTime;
 
 use Koha::Database;
 use Koha::Email;
@@ -659,6 +660,7 @@ Mark a request as completed (status = COMP).
 sub mark_completed {
     my ( $self ) = @_;
     $self->status('COMP')->store;
+    $self->completed(DateTime->now)->store;
     return {
         error   => 0,
         status  => '',