| 
      
      
        Link Here
      
     | 
  
        
          | 1 | 
          package Koha::Illcomments;  | 
          1 | 
          package Koha::Illcomments;  | 
        
        
          | 2 | 
           | 
          2 | 
           | 
        
          
            
              | 3 | 
              # TODO Add POD  | 
              3 | 
              # Copyright Magnus Enger Libriotech 2017  | 
            
            
               | 
               | 
              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  | 
            
            
              | 14 | 
              # FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more  | 
            
            
              | 15 | 
              # details.  | 
            
            
              | 16 | 
              #  | 
            
            
              | 17 | 
              # You should have received a copy of the GNU General Public License along with  | 
            
            
              | 18 | 
              # Koha; if not, write to the Free Software Foundation, Inc., 51 Franklin  | 
            
            
              | 19 | 
              # Street, Fifth Floor, Boston, MA 02110-1301 USA.  | 
            
        
          | 4 | 
           | 
          20 | 
           | 
        
        
          | 5 | 
          use Modern::Perl;  | 
          21 | 
          use Modern::Perl;  | 
        
        
          | 6 | 
          use Koha::Database;  | 
          22 | 
          use Koha::Database;  | 
        
        
          | 7 | 
          use Koha::Illcomment;  | 
          23 | 
          use Koha::Illcomment;  | 
        
        
          | 8 | 
          use base qw(Koha::Objects);  | 
          24 | 
          use base qw(Koha::Objects);  | 
        
        
          | 9 | 
           | 
          25 | 
           | 
        
            
               | 
               | 
              26 | 
              =head1 NAME  | 
            
            
              | 27 | 
               | 
            
            
              | 28 | 
              Koha::Illcomments - Koha Illcomments Object class  | 
            
            
              | 29 | 
               | 
            
            
              | 30 | 
              =head2 Internal methods  | 
            
            
              | 31 | 
               | 
            
            
              | 32 | 
              =head3 _type  | 
            
            
              | 33 | 
               | 
            
            
              | 34 | 
                  my $type = Koha::IllComments->_type;  | 
            
            
              | 35 | 
               | 
            
            
              | 36 | 
              Return this object's type  | 
            
            
              | 37 | 
               | 
            
            
              | 38 | 
              =cut  | 
            
            
              | 39 | 
               | 
            
        
          | 10 | 
          sub _type { | 
          40 | 
          sub _type { | 
        
        
          | 11 | 
              return 'Illcomments';  | 
          41 | 
              return 'Illcomments';  | 
        
        
          | 12 | 
          }  | 
          42 | 
          }  | 
        
        
          | 13 | 
           | 
          43 | 
           | 
        
            
               | 
               | 
              44 | 
              =head3 object_class  | 
            
            
              | 45 | 
               | 
            
            
              | 46 | 
                  my $class = Koha::IllComments->object_class;  | 
            
            
              | 47 | 
               | 
            
            
              | 48 | 
              Return this object's class name  | 
            
            
              | 49 | 
               | 
            
            
              | 50 | 
              =cut  | 
            
            
              | 51 | 
               | 
            
        
          | 14 | 
          sub object_class { | 
          52 | 
          sub object_class { | 
        
        
          | 15 | 
              return 'Koha::Illcomment';  | 
          53 | 
              return 'Koha::Illcomment';  | 
        
        
          | 16 | 
          }  | 
          54 | 
          }  | 
        
        
          | 17 | 
           | 
          55 | 
           | 
        
            
               | 
               | 
              56 | 
              =head1 AUTHOR  | 
            
            
              | 57 | 
               | 
            
            
              | 58 | 
              Magnus Enger <magnus@libriotech.no>  | 
            
            
              | 59 | 
               | 
            
            
              | 60 | 
              =cut  | 
            
            
              | 61 | 
               | 
            
        
          | 18 | 
          1;  | 
          62 | 
          1;  | 
        
            
              | 19 | 
              -   | 
               | 
               |