"Fossies" - the Fresh Open Source Software Archive

Member "koha-19.11.15/Koha/Exceptions/Hold.pm" (23 Feb 2021, 1768 Bytes) of package /linux/misc/koha-19.11.15.tar.gz:

As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. For more information about "Hold.pm" see the Fossies "Dox" file reference documentation and the last Fossies "Diffs" side-by-side code changes report: 20.11.00_vs_20.11.01.

    1 package Koha::Exceptions::Hold;
    2 
    3 # This file is part of Koha.
    4 #
    5 # Koha is free software; you can redistribute it and/or modify it under the
    6 # terms of the GNU General Public License as published by the Free Software
    7 # Foundation; either version 3 of the License, or (at your option) any later
    8 # version.
    9 #
   10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
   11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
   12 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
   13 #
   14 # You should have received a copy of the GNU General Public License along
   15 # with Koha; if not, write to the Free Software Foundation, Inc.,
   16 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
   17 
   18 use Modern::Perl;
   19 
   20 use Koha::Exceptions::Exception;
   21 
   22 use Exception::Class (
   23     'Koha::Exceptions::Hold' => {
   24         isa => 'Koha::Exceptions::Exception',
   25     },
   26     'Koha::Exceptions::Hold::CannotSuspendFound' => {
   27         isa         => 'Koha::Exceptions::Hold',
   28         description => "Found holds cannot be suspended",
   29         fields      =>  ['status']
   30     }
   31 );
   32 
   33 sub full_message {
   34     my $self = shift;
   35 
   36     my $msg = $self->message;
   37 
   38     unless ( $msg) {
   39         if ( $self->isa('Koha::Exceptions::Hold::CannotSuspendFound') ) {
   40             $msg = sprintf("Found hold cannot be suspended. Status=%s", $self->status );
   41         }
   42     }
   43 
   44     return $msg;
   45 }
   46 
   47 =head1 NAME
   48 
   49 Koha::Exceptions::Hold - Base class for Hold exceptions
   50 
   51 =head1 Exceptions
   52 
   53 =head2 Koha::Exceptions::Hold
   54 
   55 Generic Hold exception
   56 
   57 =head2 Koha::Exceptions::Hold::CannotSuspendFound
   58 
   59 Exception to be used when suspension is requested on a found hold.
   60 
   61 =head1 Class methods
   62 
   63 =head2 full_message
   64 
   65 Overloaded method for exception stringifying.
   66 
   67 =cut
   68 
   69 1;