View | Details | Raw Unified | Return to bug 11371
Collapse All | Expand All

(-)a/C4/Budgets.pm (-3 / +5 lines)
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
(-)a/reports/orders_by_budget.pl (-1 / +1 lines)
Lines 196-201 if ( $get_orders ) { Link Here
196
else {
196
else {
197
    # Set file export choices
197
    # Set file export choices
198
    my @outputFormats = ('CSV');
198
    my @outputFormats = ('CSV');
199
    no warnings qw();
199
    my @CSVdelimiters = qw(; tabulation , \\ / #);
200
    my @CSVdelimiters = qw(; tabulation , \\ / #);
200
201
201
    # getting all budgets
202
    # getting all budgets
202
- 

Return to bug 11371