[Koha-patches] [PATCH 3/3] POD Cleanups - Few minor ones this time
Andrew Elwell
andrew.elwell at gmail.com
Sat Jun 5 23:17:11 CEST 2010
Signed-off-by: Andrew Elwell <Andrew.Elwell at gmail.com>
---
C4/Bookseller.pm | 1 +
C4/Branch.pm | 11 ++++++-----
C4/Budgets.pm | 52 ++++++++++++++++++----------------------------------
3 files changed, 25 insertions(+), 39 deletions(-)
diff --git a/C4/Bookseller.pm b/C4/Bookseller.pm
index 16a5a3c..3937880 100644
--- a/C4/Bookseller.pm
+++ b/C4/Bookseller.pm
@@ -263,6 +263,7 @@ delete the supplier identified by $booksellerid
This sub can be called only if the supplier has no order.
=cut
+
sub DelBookseller {
my ($id) = @_;
my $dbh=C4::Context->dbh;
diff --git a/C4/Branch.pm b/C4/Branch.pm
index b402ab8..296011d 100644
--- a/C4/Branch.pm
+++ b/C4/Branch.pm
@@ -68,11 +68,12 @@ The functions in this module deal with branches.
$branches = &GetBranches();
- Returns informations about ALL branches, IndependantBranches Insensitive.
- GetBranchInfo() returns the same information without the problems of this function
- (namespace collision, mainly).
- Create a branch selector with the following code.
-
+Returns informations about ALL branches, IndependantBranches Insensitive.
+GetBranchInfo() returns the same information without the problems of this function
+(namespace collision, mainly).
+
+Create a branch selector with the following code.
+
=head3 in PERL SCRIPT
my $branches = GetBranches;
diff --git a/C4/Budgets.pm b/C4/Budgets.pm
index 8c7b011..3e99316 100644
--- a/C4/Budgets.pm
+++ b/C4/Budgets.pm
@@ -77,6 +77,10 @@ BEGIN {
# ----------------------------BUDGETS.PM-----------------------------";
+=head1 FUNCTIONS ABOUT BUDGETS
+
+=cut
+
sub HideCols {
my ( $authcat, @hide_cols ) = @_;
my $dbh = C4::Context->dbh;
@@ -632,24 +636,13 @@ sub DelBudget {
return $rc;
}
-=head2 FUNCTIONS ABOUT BUDGETS
-
-=over 2
-
-=cut
-
-=back
-=head3 GetBudget
+=head2 GetBudget
-=over 4
-
-&GetBudget($budget_id);
+ &GetBudget($budget_id);
get a specific budget
-=back
-
=cut
# -------------------------------------------------------------------
@@ -667,16 +660,12 @@ sub GetBudget {
return $result;
}
-=head3 GetBudgets
-
-=over 4
+=head2 GetBudgets
-&GetBudgets($filter, $order_by);
+ &GetBudgets($filter, $order_by);
gets all budgets
-=back
-
=cut
# -------------------------------------------------------------------
@@ -698,16 +687,12 @@ sub GetChildBudgetsSpent {
return $total_spent;
}
-=head3 GetChildBudgetsSpent
-
-=over 4
+=head2 GetChildBudgetsSpent
-&GetChildBudgetsSpent($budget-id);
+ &GetChildBudgetsSpent($budget-id);
gets the total spent of the level and sublevels of $budget_id
-=back
-
=cut
# -------------------------------------------------------------------
@@ -718,9 +703,9 @@ sub GetBudgets {
# -------------------------------------------------------------------
-=head3 GetCurrencies
+=head2 GetCurrencies
- at currencies = &GetCurrencies;
+ @currencies = &GetCurrencies;
Returns the list of all known currencies.
@@ -756,7 +741,7 @@ sub GetCurrency {
return $r;
}
-=head3 ModCurrencies
+=head2 ModCurrencies
&ModCurrencies($currency, $newrate);
@@ -777,15 +762,14 @@ sub ModCurrencies {
# -------------------------------------------------------------------
-=head3 ConvertCurrency
+=head2 ConvertCurrency
-$foreignprice = &ConvertCurrency($currency, $localprice);
+ $foreignprice = &ConvertCurrency($currency, $localprice);
Converts the price C<$localprice> to foreign currency C<$currency> by
dividing by the exchange rate, and returns the result.
-If no exchange rate is found,e is one
-to one.
+If no exchange rate is found, e is one to one.
=cut
@@ -806,9 +790,9 @@ sub ConvertCurrency {
return ( $price / $cur );
}
-=head3 _columns
+=head2 _columns
- returns an array containing fieldname followed by PRI as value if PRIMARY Key
+returns an array containing fieldname followed by PRI as value if PRIMARY Key
=cut
--
1.7.0.4
More information about the Koha-patches
mailing list