Koha/AdditionalContentsLocalization.pm

   1 package Koha::AdditionalContentsLocalization;
   2
   3 # This file is part of Koha.
   4 #
   5 # Koha is free software; you can redistribute it and/or modify it
   6 # under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; either version 3 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # Koha is distributed in the hope that it will be useful, but
  11 # WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  13 # GNU General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  17
  18 use Modern::Perl;
  19
  20 use Koha::Database;
  21 use Koha::AdditionalContents;
  22
  23 use base qw(Koha::Object);
  24
  25 =head1 NAME
  26
  27 Koha::AdditionalContentsLocalization - Koha Additional content localization object class
  28
  29 =head1 API
  30
  31 =head2 Class Methods
  32
  33 =cut
  34
  35 =head3 additional_content
  36
  37     $c->additional_content;
  38
  39 Return the Koha::AdditionalContent for this translated content.
  40
  41 =cut
  42
  43 sub additional_content {
  44     my ($self) = @_;
  45     my $rs = $self->_result->additional_content;
  46     return Koha::AdditionalContent->_new_from_dbic($rs);
  47 }
  48
  49 =head3 author
  50
  51     $c->author;
  52
  53 Return the author of the content
  54
  55 =cut
  56
  57 sub author {
  58     my ( $self, @params ) = @_;
  59     return $self->additional_content->author(@params);
  60 }
  61
  62 =head3 is_expired
  63
  64     $c->is_expired;
  65
  66 Return $content->is_expired
  67
  68 =cut
  69
  70 sub is_expired {
  71     my ( $self, @params ) = @_;
  72     return $self->additional_content->is_expired(@params);
  73 }
  74
  75 =head3 library
  76
  77     $c->library;
  78
  79 Return the library of the content
  80
  81 =cut
  82
  83 sub library {
  84     my ( $self, @params ) = @_;
  85     return $self->additional_content->library(@params);
  86 }
  87
  88 =head3 category
  89
  90     $c->category;
  91
  92 Return the category of the content
  93
  94 =cut
  95
  96 sub category {
  97     my ( $self, @params ) = @_;
  98     return $self->additional_content->category;
  99 }
 100
 101 =head3 code
 102
 103     $c->code;
 104
 105 Return the code of the content
 106
 107 =cut
 108
 109 sub code {
 110     my ( $self, @params ) = @_;
 111     return $self->additional_content->code(@params);
 112 }
 113
 114 =head3 location
 115
 116     $c->location;
 117
 118 Return the location of the content
 119
 120 =cut
 121
 122 sub location {
 123     my ( $self, @params ) = @_;
 124     return $self->additional_content->location(@params);
 125 }
 126
 127 =head3 branchcode
 128
 129     $c->branchcode;
 130
 131 Return the branchcode of the content
 132
 133 =cut
 134
 135 sub branchcode {
 136     my ( $self, @params ) = @_;
 137     return $self->additional_content->branchcode(@params);
 138 }
 139
 140 =head3 published_on
 141
 142     $c->published_on;
 143
 144 Return the publication date of the content
 145
 146 =cut
 147
 148 sub published_on {
 149     my ( $self, @params ) = @_;
 150     return $self->additional_content->published_on(@params);
 151 }
 152
 153 =head3 expirationdate
 154
 155     $c->expirationdate;
 156
 157 Return the expiration date of the content
 158
 159 =cut
 160
 161 sub expirationdate {
 162     my ( $self, @params ) = @_;
 163     return $self->additional_content->expirationdate(@params);
 164 }
 165
 166 =head3 number
 167
 168     $c->number;
 169
 170 Return the number (order of display) of the content
 171
 172 =cut
 173
 174 sub number {
 175     my ( $self, @params ) = @_;
 176     return $self->additional_content->number(@params);
 177 }
 178
 179 =head3 borrowernumber
 180
 181     $c->borrowernumber;
 182
 183 Return the borrowernumber of the content
 184
 185 =cut
 186
 187 sub borrowernumber {
 188     my ( $self, @params ) = @_;
 189     return $self->additional_content->borrowernumber(@params);
 190 }
 191
 192 =head2 Class Methods
 193
 194 =cut
 195
 196 =head3 _type
 197
 198 =cut
 199
 200 sub _type {
 201     return 'AdditionalContentsLocalization';
 202 }
 203
 204 1;