Koha/Exceptions.pm

   1 package Koha::Exceptions;
   2
   3 use Modern::Perl;
   4
   5 use Exception::Class (
   6
   7     # General exceptions
   8     'Koha::Exceptions::Exception' => {
   9         description => 'Something went wrong!',
  10     },
  11     'Koha::Exceptions::DuplicateObject' => {
  12         isa => 'Koha::Exceptions::Exception',
  13         description => 'Same object already exists',
  14     },
  15     'Koha::Exceptions::ObjectNotFound' => {
  16         isa => 'Koha::Exceptions::Exception',
  17         description => 'The required object doesn\'t exist',
  18     },
  19     'Koha::Exceptions::CannotDeleteDefault' => {
  20         isa => 'Koha::Exceptions::Exception',
  21         description => 'The default value cannot be deleted'
  22     },
  23     'Koha::Exceptions::MissingParameter' => {
  24         isa => 'Koha::Exceptions::Exception',
  25         description => 'A required parameter is missing'
  26     },
  27     'Koha::Exceptions::CannotAddLibraryLimit' => {
  28         isa => 'Koha::Exceptions::Exception',
  29         description => 'General problem adding a library limit'
  30     },
  31     # Virtualshelves exceptions
  32     'Koha::Exceptions::Virtualshelves::DuplicateObject' => {
  33         isa => 'Koha::Exceptions::DuplicateObject',
  34         description => "Duplicate shelf object",
  35     },
  36     'Koha::Exceptions::Virtualshelves::InvalidInviteKey' => {
  37         isa => 'Koha::Exceptions::Exception',
  38         description => 'Invalid key on accepting the share',
  39     },
  40     'Koha::Exceptions::Virtualshelves::InvalidKeyOnSharing' => {
  41         isa => 'Koha::Exceptions::Exception',
  42         description=> 'Invalid key on sharing a shelf',
  43     },
  44     'Koha::Exceptions::Virtualshelves::ShareHasExpired' => {
  45         isa => 'Koha::Exceptions::Exception',
  46         description=> 'Cannot share this shelf, the share has expired',
  47     },
  48     'Koha::Exceptions::Virtualshelves::UseDbAdminAccount' => {
  49         isa => 'Koha::Exceptions::Exception',
  50         description => "Invalid use of database administrator account",
  51     }
  52 );
  53
  54 1;