X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=Koha%2FIllcomment.pm;h=594af5379ce1af425875f3e08635e2551f7aaeec;hb=998289850f373a6b83d1ee4387161575fd6d3def;hp=931f235ded02eedcb4b6d2d6c6ef802663ece08b;hpb=2460eb0597b699eb8c4afc19c727091fca1f4200;p=koha-ffzg.git diff --git a/Koha/Illcomment.pm b/Koha/Illcomment.pm index 931f235ded..594af5379c 100644 --- a/Koha/Illcomment.pm +++ b/Koha/Illcomment.pm @@ -4,19 +4,18 @@ package Koha::Illcomment; # # This file is part of Koha. # -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 3 of the License, or (at your option) any later -# version. +# Koha is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. # -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS -# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more -# details. +# Koha is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 51 Franklin -# Street, Fifth Floor, Boston, MA 02110-1301 USA. +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . use Modern::Perl; use Koha::Database; @@ -30,6 +29,10 @@ Koha::Illcomment - Koha Illcomment Object class =head3 patron + my $patron = Koha::Illcomment->patron; + +Return the patron object associated with this comment + =cut sub patron { @@ -43,6 +46,10 @@ sub patron { =head3 _type + my $type = Koha::IllComment->_type; + +Return this object's type + =cut sub _type {