Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 7688: Followup FIX perldoc

Browse source 
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>
This commit is contained in:
Jonathan Druart 2013-02-19 11:02:43 +01:00 committed by Jared Camins-Esakov
parent da5aca223f
commit a4d25333b4
3 changed files with 27 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
C4/Serials.pm
View file

@ -1324,7 +1324,7 @@ sub ModNextExpected {
=head2 GetSubscriptionIrregularities
=over4
=over 4
=item @irreg = &GetSubscriptionIrregularities($subscriptionid);
get the list of irregularities for a subscription

19
C4/Serials/Frequency.pm
View file

@ -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);

31
C4/Serials/Numberpattern.pm
View file

@ -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);