From c7e66167a9400c3240209cfc001c056ec10e38cf Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Thu, 15 Jul 2021 06:13:36 +0000 Subject: [PATCH] Bug 27944: (follow-up) Move statuses to constants Content-Type: text/plain; charset=utf-8 --- Koha/ArticleRequest/Status.pm | 33 ++++++--------------------------- 1 file changed, 6 insertions(+), 27 deletions(-) diff --git a/Koha/ArticleRequest/Status.pm b/Koha/ArticleRequest/Status.pm index 859e9f4a56..3bd62b7952 100644 --- a/Koha/ArticleRequest/Status.pm +++ b/Koha/ArticleRequest/Status.pm @@ -19,37 +19,16 @@ package Koha::ArticleRequest::Status; use Modern::Perl; +use constant Requested => 'REQUESTED'; +use constant Pending => 'PENDING'; +use constant Processing => 'PROCESSING'; +use constant Completed => 'COMPLETED'; +use constant Canceled => 'CANCELED'; + =head1 AUTHOR Kyle M Hall =cut -=head2 Requested - - returns constant string 'REQUESTED' - -=cut - -sub Requested { - return 'REQUESTED'; -} - -sub Pending { - return 'PENDING'; -} - -sub Processing { - return 'PROCESSING'; -} - -sub Completed { - return 'COMPLETED'; -} - -sub Canceled { - return 'CANCELED'; -} - - 1; -- 2.20.1