From a4d25333b44fbe0e64e45adee0022df52b86985a Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 19 Feb 2013 11:02:43 +0100 Subject: [PATCH] Bug 7688: Followup FIX perldoc Signed-off-by: Bernardo Gonzalez Kriegel Signed-off-by: Paul Poulain Signed-off-by: Jared Camins-Esakov --- 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