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>

diff --git a/C4/Serials.pm b/C4/Serials.pm
index b37aa55..48880b2 100644 (file)
--- 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 51e149f..8c11aa5 100644 (file)
--- 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 8747344..fde293b 100644 (file)
--- 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);