Bug 22678: (follow-up) Array ref expected in context key

[koha-ffzg.git] / Koha / Exceptions / Patron.pm

diff --git a/Koha/Exceptions/Patron.pm b/Koha/Exceptions/Patron.pm
index c409b4e..596f28c 100644 (file)
--- a/Koha/Exceptions/Patron.pm
+++ b/Koha/Exceptions/Patron.pm
@@ -2,16 +2,72 @@ package Koha::Exceptions::Patron;
 
 use Modern::Perl;
 
-use Exception::Class (
+use Koha::Exception;
 
+use Exception::Class (
     'Koha::Exceptions::Patron' => {
-        description => 'Something went wrong!',
+        isa => 'Koha::Exception',
+    },
+    'Koha::Exceptions::Patron::MissingEmailAddress' => {
+        description => "Patron has no email address",
     },
-    'Koha::Exceptions::Patron::DuplicateObject' => {
-        isa => 'Koha::Exceptions::Patron',
-        description => "Patron cardnumber and userid must be unique",
-        fields => ["conflict"],
+    'Koha::Exceptions::Patron::FailedDelete' => {
+        isa         => 'Koha::Exceptions::Patron',
+        description => "Deleting patron failed"
     },
+    'Koha::Exceptions::Patron::FailedDeleteAnonymousPatron' => {
+        isa         => 'Koha::Exceptions::Patron',
+        description => "Deleting patron failed, AnonymousPatron is not deleteable"
+    },
+    'Koha::Exceptions::Patron::MissingMandatoryExtendedAttribute' => {
+        isa         => 'Koha::Exceptions::Patron',
+        description => "Mandatory extended attribute missing",
+        fields      => ['type']
+    }
 );
 
+sub full_message {
+    my $self = shift;
+
+    my $msg = $self->message;
+
+    unless ( $msg) {
+        if ( $self->isa('Koha::Exceptions::Patron::MissingMandatoryExtendedAttribute') ) {
+            $msg = sprintf("Missing mandatory extended attribute (type=%s)", $self->type );
+        }
+    }
+
+    return $msg;
+}
+
+=head1 NAME
+
+Koha::Exceptions::Patron - Base class for patron exceptions
+
+=head1 Exceptions
+
+=head2 Koha::Exceptions::Patron
+
+Generic patron exception.
+
+=head2 Koha::Exceptions::Patron::FailedDelete
+
+Deleting patron failed.
+
+=head2 Koha::Exceptions::Patron::FailedDeleteAnonymousPatron
+
+Tried to delete the anonymous patron.
+
+=head2 Koha::Exceptions::Patron::MissingMandatoryExtendedAttribute
+
+A required mandatory extended attribute is missing.
+
+=head1 Class methods
+
+=head2 full_message
+
+Overloaded method for exception stringifying.
+
+=cut
+
 1;