Signed-off-by: Galen Charlton <[email protected]>
---
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 2b60f39..148d3a1 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 e39637a..6b828ec 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 25f1a22..393f9a9 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 7e147f1..22eac78 100644
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -2509,6 +2509,7 @@ OR adds a new authority record
=item C<BUGS>
* 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 9d7bf8f..d9a8adf 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 <[email protected]>
diff --git a/C4/Serials/NumberPattern.pm b/C4/Serials/NumberPattern.pm
index 6880515..b61db88 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 <[email protected]>
--
1.6.3.3
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
