From ebb93045480f6a9857ca8b81a0ce2826bb77e80d Mon Sep 17 00:00:00 2001
From: Tomas Cohen Arazi <tomascohen@gmail.com>
Date: Fri, 20 Jun 2014 16:52:59 -0300
Subject: [PATCH] Bug 12462: Fix some POD errors

Bug 12041 made xt/author/podcorrectness.t consider files in the 'Koha' namespace.
Some of them where failing. This patch fixes some of those POD problems.

Best regards
To+
---
 C4/Charset.pm          |  2 ++
 C4/SIP/ILS/Item.pm     |  2 ++
 Koha/Borrower/Files.pm | 13 ++++++++++++-
 3 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/C4/Charset.pm b/C4/Charset.pm
index acad92a..2950a71 100644
--- a/C4/Charset.pm
+++ b/C4/Charset.pm
@@ -44,6 +44,8 @@ BEGIN {
     );
 }
 
+=encoding UTF-8
+
 =head1 NAME
 
 C4::Charset - utilities for handling character set conversions.
diff --git a/C4/SIP/ILS/Item.pm b/C4/SIP/ILS/Item.pm
index 30586a3..7f144a8 100644
--- a/C4/SIP/ILS/Item.pm
+++ b/C4/SIP/ILS/Item.pm
@@ -25,6 +25,8 @@ use Koha::Database;
 
 our $VERSION = 3.07.00.049;
 
+=encoding UTF-8
+
 =head1 EXAMPLE
 
  our %item_db = (
diff --git a/Koha/Borrower/Files.pm b/Koha/Borrower/Files.pm
index d1660bb..d816454 100644
--- a/Koha/Borrower/Files.pm
+++ b/Koha/Borrower/Files.pm
@@ -36,6 +36,10 @@ BEGIN {
 
 Koha::Borrower::Files - Module for managing borrower files
 
+=head1 METHODS
+
+=over
+
 =cut
 
 sub new {
@@ -75,8 +79,11 @@ sub GetFilesInfo {
 }
 
 =item AddFile()
+
     my $bf = Koha::Borrower::Files->new( borrowernumber => $borrowernumber );
-    $bh->AddFile( name => $filename, type => $mimetype, description => $description, content => $content );
+    $bh->AddFile( name => $filename, type => $mimetype,
+                  description => $description, content => $content );
+
 =cut
 
 sub AddFile {
@@ -100,8 +107,10 @@ sub AddFile {
 }
 
 =item GetFile()
+
     my $bf = Koha::Borrower::Files->new( borrowernumber => $borrowernumber );
     my $file = $bh->GetFile( file_id => $file_id );
+
 =cut
 
 sub GetFile {
@@ -119,8 +128,10 @@ sub GetFile {
 }
 
 =item DelFile()
+
     my $bf = Koha::Borrower::Files->new( borrowernumber => $borrowernumber );
     $bh->DelFile( file_id => $file_id );
+
 =cut
 
 sub DelFile {
-- 
1.9.1