Bug 15548: Move new patron related code to Patron*

[koha-equinox.git] / Koha / Patron / Discharge.pm

diff --git a/Koha/Borrower/Discharge.pm b/Koha/Patron/Discharge.pm
similarity index 96%
rename from Koha/Borrower/Discharge.pm
rename to Koha/Patron/Discharge.pm
index bbfab56..4b775dc 100644 (file)
--- a/Koha/Borrower/Discharge.pm
+++ b/Koha/Patron/Discharge.pm
@@ -1,4 +1,4 @@
-package Koha::Borrower::Discharge;
+package Koha::Patron::Discharge;
 
 use Modern::Perl;
 use CGI;
@@ -51,7 +51,7 @@ sub is_discharged {
     my $borrowernumber = $params->{borrowernumber};
 
 
-    my $restricted = Koha::Borrower::Debarments::IsDebarred($borrowernumber);
+    my $restricted = Koha::Patron::Debarments::IsDebarred($borrowernumber);
     my $validated = get_validated({borrowernumber => $borrowernumber});
 
     if ($restricted && $validated) {
@@ -85,7 +85,7 @@ sub discharge {
     }
 
     # Debar the member
-    Koha::Borrower::Debarments::AddDebarment({
+    Koha::Patron::Debarments::AddDebarment({
         borrowernumber => $borrowernumber,
         type           => 'DISCHARGE',
     });