From 7ae963da8d4540d853385db4777ff678dfe8cd40 Mon Sep 17 00:00:00 2001 From: Magnus Enger Date: Wed, 29 Oct 2014 10:31:26 +0100 Subject: [PATCH] Bug 11401 - QA followup - fix pod The QA script was complaining about some dodgy POD in C4/Members.pm, that was not introduced by bug 11401. This patch fixes the POD, to keep the QA script happy. --- C4/Members.pm | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/C4/Members.pm b/C4/Members.pm index 5b3457f..b754aeb 100644 --- a/C4/Members.pm +++ b/C4/Members.pm @@ -610,7 +610,8 @@ sub GetMember { C returns a borrowersnumber's list of guarantor/guarantees of the member given in parameter -=cut +=cut + sub GetMemberRelatives { my $borrowernumber = shift; my $dbh = C4::Context->dbh; @@ -1675,6 +1676,7 @@ sub GetBorrowercategory { $categorycode = &GetBorrowerCategoryCode( $borrowernumber ); Given the borrowernumber, the function returns the corresponding categorycode + =cut sub GetBorrowerCategorycode { @@ -2228,17 +2230,13 @@ sub GetBorrowersNamesAndLatestIssue { =head2 ModPrivacy -=over 4 - -my $success = ModPrivacy( $borrowernumber, $privacy ); + my $success = ModPrivacy( $borrowernumber, $privacy ); Update the privacy of a patron. return : true on success, false on failure -=back - =cut sub ModPrivacy { -- 1.7.10.4