Lines 82-88
BEGIN {
Link Here
|
82 |
|
82 |
|
83 |
# ----------------------------BUDGETS.PM-----------------------------"; |
83 |
# ----------------------------BUDGETS.PM-----------------------------"; |
84 |
|
84 |
|
85 |
|
|
|
86 |
=head1 FUNCTIONS ABOUT BUDGETS |
85 |
=head1 FUNCTIONS ABOUT BUDGETS |
87 |
|
86 |
|
88 |
=cut |
87 |
=cut |
Lines 463-468
sub GetBudgetPeriod {
Link Here
|
463 |
} |
462 |
} |
464 |
|
463 |
|
465 |
# ------------------------------------------------------------------- |
464 |
# ------------------------------------------------------------------- |
|
|
465 |
|
466 |
=head2 GetBudgetPeriodDescription |
466 |
=head2 GetBudgetPeriodDescription |
467 |
|
467 |
|
468 |
$description = GetBudgetPeriodDescription($budget_id); |
468 |
$description = GetBudgetPeriodDescription($budget_id); |
Lines 474-479
sub GetBudgetPeriod {
Link Here
|
474 |
Description is fetched from aqbudgetperiods, id is compared aqbudgets. (INNER JOIN on budget_period_id) |
474 |
Description is fetched from aqbudgetperiods, id is compared aqbudgets. (INNER JOIN on budget_period_id) |
475 |
|
475 |
|
476 |
=cut |
476 |
=cut |
|
|
477 |
|
477 |
sub GetBudgetPeriodDescription { |
478 |
sub GetBudgetPeriodDescription { |
478 |
my ($budget_id) = @_; |
479 |
my ($budget_id) = @_; |
479 |
my $dbh = C4::Context->dbh; |
480 |
my $dbh = C4::Context->dbh; |
Lines 638-643
sub DelBudget {
Link Here
|
638 |
|
639 |
|
639 |
|
640 |
|
640 |
# ------------------------------------------------------------------- |
641 |
# ------------------------------------------------------------------- |
|
|
642 |
|
641 |
=head2 GetBudget |
643 |
=head2 GetBudget |
642 |
|
644 |
|
643 |
&GetBudget($budget_id); |
645 |
&GetBudget($budget_id); |
Lines 750-755
sub GetBudgetsByActivity {
Link Here
|
750 |
return @results; |
752 |
return @results; |
751 |
} |
753 |
} |
752 |
# -------------------------------------------------------------------- |
754 |
# -------------------------------------------------------------------- |
|
|
755 |
|
753 |
=head2 GetBudgetsReport |
756 |
=head2 GetBudgetsReport |
754 |
|
757 |
|
755 |
&GetBudgetsReport( [$activity] ); |
758 |
&GetBudgetsReport( [$activity] ); |
Lines 1151-1157
sub ConvertCurrency {
Link Here
|
1151 |
return ( $price / $cur ); |
1154 |
return ( $price / $cur ); |
1152 |
} |
1155 |
} |
1153 |
|
1156 |
|
1154 |
|
|
|
1155 |
=head2 CloneBudgetPeriod |
1157 |
=head2 CloneBudgetPeriod |
1156 |
|
1158 |
|
1157 |
my $new_budget_period_id = CloneBudgetPeriod({ |
1159 |
my $new_budget_period_id = CloneBudgetPeriod({ |
Lines 1383-1386
__END__
Link Here
|
1383 |
|
1385 |
|
1384 |
Koha Development Team <http://koha-community.org/> |
1386 |
Koha Development Team <http://koha-community.org/> |
1385 |
|
1387 |
|
1386 |
=cut |
1388 |
=cut |