X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=C4%2FAuthoritiesMarc%2FMARC21.pm;h=a148bbb73334059ba6cfbbffd269daca44f96d15;hb=32c5ef613d8805304c1b7f97e597116226b7bbe8;hp=4de7f39183ac33d4b89dedaf0458282019d265b9;hpb=f41be7ff10dd97ad9357ba7b863e0ee5476873f1;p=koha_gimpoz

diff --git a/C4/AuthoritiesMarc/MARC21.pm b/C4/AuthoritiesMarc/MARC21.pm
index 4de7f39183..a148bbb733 100644
--- a/C4/AuthoritiesMarc/MARC21.pm
+++ b/C4/AuthoritiesMarc/MARC21.pm
@@ -13,11 +13,12 @@ package C4::AuthoritiesMarc::MARC21;
 # 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., 59 Temple Place,
-# Suite 330, Boston, MA  02111-1307 USA
+# 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.
 
 use strict;
+#use warnings; FIXME - Bug 2505
 use MARC::Record;
 our $VERSION = 3.00;
 
@@ -47,11 +48,7 @@ function based on the marcflavour system preference.
 
 =head2 get_heading_type_from_marc
 
-=over 4
-
-my $auth_type = get_auth_type_from_marc($marc);
-
-=back
+  my $auth_type = get_auth_type_from_marc($marc);
 
 Given a MARC::Record object containing an authority record,
 determine its heading type (e.g., personal name, topical term,
@@ -61,11 +58,7 @@ etc.).
 
 =head2 default_auth_type_location
 
-=over 4
-
-my ($tag, $subfield) = default_auth_type_location();
-
-=back
+  my ($tag, $subfield) = default_auth_type_location();
 
 Get the tag and subfield used to store the heading type
 if not specified in the MARC framework.  For MARC21,
@@ -79,11 +72,7 @@ sub default_auth_type_location {
 
 =head2 fix_marc21_auth_type_location 
 
-=over 4
-
-fix_marc21_auth_type_location($auth_marc, $auth_type_tag, $auth_type_subfield);
-
-=back
+  fix_marc21_auth_type_location($auth_marc, $auth_type_tag, $auth_type_subfield);
 
 If the incoming C<MARC::Record> object has a 152$b, remove it.  If no
 field already exists that contains the specified C<$auth_type_tag>
@@ -118,7 +107,7 @@ sub fix_marc21_auth_type_location {
 
 =head1 AUTHOR
 
-Koha Developement team <info@koha.org>
+Koha Development Team <http://koha-community.org/>
 
 Galen Charlton <galen.charlton@liblime.com>