From a4d25333b44fbe0e64e45adee0022df52b86985a Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@biblibre.com>
Date: Tue, 19 Feb 2013 11:02:43 +0100
Subject: [PATCH] Bug 7688: Followup FIX perldoc

Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>

Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
---
 C4/Serials.pm               |  2 +-
 C4/Serials/Frequency.pm     | 19 +++++++++++++------
 C4/Serials/Numberpattern.pm | 31 +++++++++++++------------------
 3 files changed, 27 insertions(+), 25 deletions(-)

diff --git a/C4/Serials.pm b/C4/Serials.pm
index b37aa551db..48880b2d0e 100644
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -1324,7 +1324,7 @@ sub ModNextExpected {
 
 =head2 GetSubscriptionIrregularities
 
-=over4
+=over 4
 
 =item @irreg = &GetSubscriptionIrregularities($subscriptionid);
 get the list of irregularities for a subscription
diff --git a/C4/Serials/Frequency.pm b/C4/Serials/Frequency.pm
index 51e149fcfe..8c11aa5cbc 100644
--- a/C4/Serials/Frequency.pm
+++ b/C4/Serials/Frequency.pm
@@ -40,7 +40,14 @@ BEGIN {
     );
 }
 
-=head3 GetSubscriptionFrequencies
+
+=head1 NAME
+
+C4::Serials::Frequency - Serials Frequency module
+
+=head1 FUNCTIONS
+
+=head2 GetSubscriptionFrequencies
 
 =over 4
 
@@ -66,7 +73,7 @@ sub GetSubscriptionFrequencies {
     return @$results;
 }
 
-=head3 GetSubscriptionFrequency
+=head2 GetSubscriptionFrequency
 
 =over 4
 
@@ -93,7 +100,7 @@ sub GetSubscriptionFrequency {
     return $sth->fetchrow_hashref;
 }
 
-=head3 AddSubscriptionFrequency
+=head2 AddSubscriptionFrequency
 
 =over 4
 
@@ -155,7 +162,7 @@ sub AddSubscriptionFrequency {
     return $rv;
 }
 
-=head3 ModSubscriptionFrequency
+=head2 ModSubscriptionFrequency
 
 =over 4
 
@@ -222,7 +229,7 @@ sub ModSubscriptionFrequency {
     return $sth->execute(@values, $frequency->{'id'});
 }
 
-=head3 DelSubscriptionFrequency
+=head2 DelSubscriptionFrequency
 
 =over 4
 
@@ -246,7 +253,7 @@ sub DelSubscriptionFrequency {
     $sth->execute($frequencyid);
 }
 
-=head3 GetSubscriptionsWithFrequency
+=head2 GetSubscriptionsWithFrequency
 
     my @subs = GetSubscriptionsWithFrequency($frequencyid);
 
diff --git a/C4/Serials/Numberpattern.pm b/C4/Serials/Numberpattern.pm
index 8747344552..fde293b5e4 100644
--- a/C4/Serials/Numberpattern.pm
+++ b/C4/Serials/Numberpattern.pm
@@ -42,15 +42,18 @@ BEGIN {
     );
 }
 
-=head3 GetSubscriptionNumberpatterns
 
-=over 4
+=head1 NAME
+
+C4::Serials::Numberpattern - Serials numbering pattern module
+
+=head1 FUNCTIONS
+
+=head2 GetSubscriptionNumberpatterns
 
 @results = GetSubscriptionNumberpatterns;
 this function get all subscription number patterns entered in table
 
-=back
-
 =cut
 
 sub GetSubscriptionNumberpatterns {
@@ -67,15 +70,11 @@ sub GetSubscriptionNumberpatterns {
     return @$results;
 }
 
-=head3 GetSubscriptionNumberpattern
-
-=over 4
+=head2 GetSubscriptionNumberpattern
 
 $result = GetSubscriptionNumberpattern($numberpatternid);
 this function get the data of the subscription numberpatterns which id is $numberpatternid
 
-=back
-
 =cut
 
 sub GetSubscriptionNumberpattern {
@@ -92,15 +91,11 @@ sub GetSubscriptionNumberpattern {
     return $sth->fetchrow_hashref;
 }
 
-=head3 GetSubscriptionNumberpatternByName
-
-=over 4
+=head2 GetSubscriptionNumberpatternByName
 
 $result = GetSubscriptionNumberpatternByName($name);
 this function get the data of the subscription numberpatterns which name is $name
 
-=back
-
 =cut
 
 sub GetSubscriptionNumberpatternByName {
@@ -117,7 +112,7 @@ sub GetSubscriptionNumberpatternByName {
     return $sth->fetchrow_hashref;
 }
 
-=head3 AddSubscriptionNumberpattern
+=head2 AddSubscriptionNumberpattern
 
 =over 4
 
@@ -172,7 +167,7 @@ sub AddSubscriptionNumberpattern {
     return $rv;
 }
 
-=head3 ModSubscriptionNumberpattern
+=head2 ModSubscriptionNumberpattern
 
 =over 4
 
@@ -230,7 +225,7 @@ sub ModSubscriptionNumberpattern {
     return $sth->execute(@values, $numberpattern->{'id'});
 }
 
-=head3 DelSubscriptionNumberpattern
+=head2 DelSubscriptionNumberpattern
 
 =over 4
 
@@ -254,7 +249,7 @@ sub DelSubscriptionNumberpattern {
     $sth->execute($numberpatternid);
 }
 
-=head3 GetSubscriptionsWithNumberpattern
+=head2 GetSubscriptionsWithNumberpattern
 
     my @subs = GetSubscriptionsWithNumberpattern($numberpatternid);
 
-- 
2.39.5