"Fossies" - the Fresh Open Source Software Archive

Member "koha-19.11.15/Koha/Suggestion.pm" (23 Feb 2021, 1403 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 "Suggestion.pm" see the Fossies "Dox" file reference documentation.

    1 package Koha::Suggestion;
    2 
    3 # Copyright ByWater Solutions 2015
    4 #
    5 # This file is part of Koha.
    6 #
    7 # Koha is free software; you can redistribute it and/or modify it under the
    8 # terms of the GNU General Public License as published by the Free Software
    9 # Foundation; either version 3 of the License, or (at your option) any later
   10 # version.
   11 #
   12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
   13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
   14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
   15 #
   16 # You should have received a copy of the GNU General Public License along
   17 # with Koha; if not, write to the Free Software Foundation, Inc.,
   18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
   19 
   20 use Modern::Perl;
   21 
   22 use Carp;
   23 
   24 use Koha::Database;
   25 use Koha::DateUtils qw(dt_from_string);
   26 
   27 use base qw(Koha::Object);
   28 
   29 =head1 NAME
   30 
   31 Koha::Suggestion - Koha Suggestion object class
   32 
   33 =head1 API
   34 
   35 =head2 Class Methods
   36 
   37 =cut
   38 
   39 =head3 store
   40 
   41 Override the default store behavior so that new suggestions have
   42 a suggesteddate of today
   43 
   44 =cut
   45 
   46 sub store {
   47     my ($self) = @_;
   48 
   49     unless ( $self->suggesteddate() ) {
   50         $self->suggesteddate( dt_from_string()->ymd );
   51     }
   52 
   53     return $self->SUPER::store();
   54 }
   55 
   56 =head3 type
   57 
   58 =cut
   59 
   60 sub _type {
   61     return 'Suggestion';
   62 }
   63 
   64 =head1 AUTHOR
   65 
   66 Kyle M Hall <kyle@bywatersolutions.com>
   67 
   68 =cut
   69 
   70 1;