From afed49ccc891483a941af6512f6ac53a24994a4d Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Wed, 3 Feb 2010 15:56:19 -0500 Subject: [PATCH] fix POD errors reported by xt/author/podcorrectness.t Signed-off-by: Galen Charlton --- C4/Acquisition.pm | 25 +++++++++++++++---------- C4/Charset.pm | 1 + C4/Context.pm | 2 +- C4/Search.pm | 1 + C4/Serials/Frequency.pm | 2 -- C4/Serials/NumberPattern.pm | 2 -- 6 files changed, 18 insertions(+), 15 deletions(-) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 2b60f39442..148d3a1893 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -166,16 +166,20 @@ sub GetBasket { $basket = &NewBasket( $booksellerid, $authorizedby, $basketname, $basketnote, $basketbooksellernote, $basketcontractnumber ); +=back + Create a new basket in aqbasket table +=over 2 + =item C<$booksellerid> is a foreign key in the aqbasket table =item C<$authorizedby> is the username of who created the basket -The other parameters are optional, see ModBasketHeader for more info on them. - =back +The other parameters are optional, see ModBasketHeader for more info on them. + =cut # FIXME : this function seems to be unused. @@ -658,13 +662,13 @@ sub ModBasketgroup { DelBasketgroup($basketgroupid); -=over 2 +=back Deletes a basketgroup in the aqbasketgroups table, and removes the reference to it from the baskets, -=item C<$basketgroupid> is the 'id' field of the basket in the aqbasketgroup table +=over 2 -=back +=item C<$basketgroupid> is the 'id' field of the basket in the aqbasketgroup table =back @@ -682,7 +686,6 @@ sub DelBasketgroup { #------------------------------------------------------------# -=back =head2 FUNCTIONS ABOUT ORDERS @@ -690,6 +693,8 @@ sub DelBasketgroup { =cut +=back + =head3 GetBasketgroup =over 4 @@ -750,12 +755,8 @@ sub GetBasketgroups { #------------------------------------------------------------# -=back - =head2 FUNCTIONS ABOUT ORDERS -=over 2 - =cut #------------------------------------------------------------# @@ -1768,10 +1769,14 @@ sub GetRecentAcqui { $contractlist = &GetContracts($booksellerid, $activeonly); +=back + Looks up the contracts that belong to a bookseller Returns a list of contracts +=over 2 + =item C<$booksellerid> is the "id" field in the "aqbooksellers" table. =item C<$activeonly> if exists get only contracts that are still active. diff --git a/C4/Charset.pm b/C4/Charset.pm index e39637acf3..6b828ecf0c 100644 --- a/C4/Charset.pm +++ b/C4/Charset.pm @@ -161,6 +161,7 @@ sub SetUTF8Flag{ my $normalized_string=NormalizeString($string); =back + Given a string nfc : If you want to set NFC and not NFD diff --git a/C4/Context.pm b/C4/Context.pm index 25f1a223ef..393f9a93a8 100644 --- a/C4/Context.pm +++ b/C4/Context.pm @@ -507,7 +507,7 @@ sub clear_syspref_cache { %sysprefs = (); } -=head2 set_preference +=item set_preference C4::Context->set_preference( $variable, $value ); diff --git a/C4/Search.pm b/C4/Search.pm index 7e147f1f33..22eac78ac5 100644 --- a/C4/Search.pm +++ b/C4/Search.pm @@ -2509,6 +2509,7 @@ OR adds a new authority record =item C * I had to add this to Search.pm (instead of the logical Biblio.pm) because of a circular dependency (this sub uses SimpleSearch, and Search.pm uses Biblio.pm) + =back =cut diff --git a/C4/Serials/Frequency.pm b/C4/Serials/Frequency.pm index 9d7bf8f68f..d9a8adf96e 100644 --- a/C4/Serials/Frequency.pm +++ b/C4/Serials/Frequency.pm @@ -134,8 +134,6 @@ END { } # module clean-up code here (global destructor) 1; __END__ -=back - =head1 AUTHOR Koha Developement team diff --git a/C4/Serials/NumberPattern.pm b/C4/Serials/NumberPattern.pm index 6880515877..b61db88115 100644 --- a/C4/Serials/NumberPattern.pm +++ b/C4/Serials/NumberPattern.pm @@ -121,8 +121,6 @@ END { } # module clean-up code here (global destructor) 1; __END__ -=back - =head1 AUTHOR Koha Developement team -- 2.39.5