[Koha-patches] [PATCH] fix POD errors reported by xt/author/podcorrectness.t

[Galen Charlton]

Signed-off-by: Galen Charlton <gmcharlt at gmail.com>
---
 C4/Acquisition.pm           |   25 +++++++++++++++----------
 C4/Charset.pm               |    1 +
 C4/Context.pm               |    2 +-
 C4/Search.pm                |    1 +
 C4/Serials/Frequency.pm     |    2 --
 C4/Serials/NumberPattern.pm |    2 --
 6 files changed, 18 insertions(+), 15 deletions(-)

diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm
index 2b60f39..148d3a1 100644
--- a/C4/Acquisition.pm
+++ b/C4/Acquisition.pm
@@ -166,16 +166,20 @@ sub GetBasket {
 
 $basket = &NewBasket( $booksellerid, $authorizedby, $basketname, $basketnote, $basketbooksellernote, $basketcontractnumber );
 
+=back
+
 Create a new basket in aqbasket table
 
+=over 2
+
 =item C<$booksellerid> is a foreign key in the aqbasket table
 
 =item C<$authorizedby> is the username of who created the basket
 
-The other parameters are optional, see ModBasketHeader for more info on them.
-
 =back
 
+The other parameters are optional, see ModBasketHeader for more info on them.
+
 =cut
 
 # FIXME : this function seems to be unused.
@@ -658,13 +662,13 @@ sub ModBasketgroup {
 
 DelBasketgroup($basketgroupid);
 
-=over 2
+=back
 
 Deletes a basketgroup in the aqbasketgroups table, and removes the reference to it from the baskets,
 
-=item C<$basketgroupid> is the 'id' field of the basket in the aqbasketgroup table
+=over 2
 
-=back
+=item C<$basketgroupid> is the 'id' field of the basket in the aqbasketgroup table
 
 =back
 
@@ -682,7 +686,6 @@ sub DelBasketgroup {
 
 #------------------------------------------------------------#
 
-=back
 
 =head2 FUNCTIONS ABOUT ORDERS
 
@@ -690,6 +693,8 @@ sub DelBasketgroup {
 
 =cut
 
+=back
+
 =head3 GetBasketgroup
 
 =over 4
@@ -750,12 +755,8 @@ sub GetBasketgroups {
 
 #------------------------------------------------------------#
 
-=back
-
 =head2 FUNCTIONS ABOUT ORDERS
 
-=over 2
-
 =cut
 
 #------------------------------------------------------------#
@@ -1768,10 +1769,14 @@ sub GetRecentAcqui {
 
 $contractlist = &GetContracts($booksellerid, $activeonly);
 
+=back
+
 Looks up the contracts that belong to a bookseller
 
 Returns a list of contracts
 
+=over 2
+
 =item C<$booksellerid> is the "id" field in the "aqbooksellers" table.
 
 =item C<$activeonly> if exists get only contracts that are still active.
diff --git a/C4/Charset.pm b/C4/Charset.pm
index e39637a..6b828ec 100644
--- a/C4/Charset.pm
+++ b/C4/Charset.pm
@@ -161,6 +161,7 @@ sub SetUTF8Flag{
     my $normalized_string=NormalizeString($string);
 
 =back
+
 	Given 
 	    a string
         nfc : If you want to set NFC and not NFD
diff --git a/C4/Context.pm b/C4/Context.pm
index 25f1a22..393f9a9 100644
--- a/C4/Context.pm
+++ b/C4/Context.pm
@@ -507,7 +507,7 @@ sub clear_syspref_cache {
     %sysprefs = ();
 }
 
-=head2 set_preference
+=item set_preference
 
   C4::Context->set_preference( $variable, $value );
 
diff --git a/C4/Search.pm b/C4/Search.pm
index 7e147f1..22eac78 100644
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -2509,6 +2509,7 @@ OR adds a new authority record
 
 =item C<BUGS>
     * I had to add this to Search.pm (instead of the logical Biblio.pm) because of a circular dependency (this sub uses SimpleSearch, and Search.pm uses Biblio.pm)
+
 =back
 
 =cut
diff --git a/C4/Serials/Frequency.pm b/C4/Serials/Frequency.pm
index 9d7bf8f..d9a8adf 100644
--- a/C4/Serials/Frequency.pm
+++ b/C4/Serials/Frequency.pm
@@ -134,8 +134,6 @@ END { }    # module clean-up code here (global destructor)
 1;
 __END__
 
-=back
-
 =head1 AUTHOR
 
 Koha Developement team <info at koha.org>
diff --git a/C4/Serials/NumberPattern.pm b/C4/Serials/NumberPattern.pm
index 6880515..b61db88 100644
--- a/C4/Serials/NumberPattern.pm
+++ b/C4/Serials/NumberPattern.pm
@@ -121,8 +121,6 @@ END { }    # module clean-up code here (global destructor)
 1;
 __END__
 
-=back
-
 =head1 AUTHOR
 
 Koha Developement team <info at koha.org>
-- 
1.6.3.3