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

(-)a/C4/Budgets.pm (+2 lines)
Lines 690-695 sub GetBudgetByCode { Link Here
690
        SELECT *
690
        SELECT *
691
        FROM aqbudgets
691
        FROM aqbudgets
692
        WHERE budget_code = ?
692
        WHERE budget_code = ?
693
        ORDER BY budget_id DESC
694
        LIMIT 1
693
    };
695
    };
694
    my $sth = $dbh->prepare( $query );
696
    my $sth = $dbh->prepare( $query );
695
    $sth->execute( $budget_code );
697
    $sth->execute( $budget_code );
(-)a/t/db_dependent/Budgets.t (-2 / +7 lines)
Lines 1-6 Link Here
1
use strict;
1
use strict;
2
use warnings;
2
use warnings;
3
use Test::More tests=>18;
3
use Test::More tests => 20;
4
4
5
BEGIN {use_ok('C4::Budgets') }
5
BEGIN {use_ok('C4::Budgets') }
6
use C4::Dates;
6
use C4::Dates;
Lines 87-92 ok($budget_id=AddBudget( Link Here
87
87
88
my $budget;
88
my $budget;
89
ok($budget=GetBudget($budget_id) ,"GetBudget OK");
89
ok($budget=GetBudget($budget_id) ,"GetBudget OK");
90
$budget_id = $budget->{budget_id};
90
$$budget{budget_permission}=1;
91
$$budget{budget_permission}=1;
91
ok($mod_status=ModBudget($budget),"ModBudget OK");
92
ok($mod_status=ModBudget($budget),"ModBudget OK");
92
ok(GetBudgets()>0,
93
ok(GetBudgets()>0,
Lines 102-106 ok(GetBudgets({budget_period_id=>GetBudgetPeriod($bpid)->{budget_period_id}},[{" Link Here
102
my $budget_name = GetBudgetName( $budget_id );
103
my $budget_name = GetBudgetName( $budget_id );
103
is($budget_name, $budget->{budget_name}, "Test the GetBudgetName routine");
104
is($budget_name, $budget->{budget_name}, "Test the GetBudgetName routine");
104
105
106
my $budget_code = $budget->{budget_code};
107
my $budget_by_code = GetBudgetByCode( $budget_code );
108
is($budget_by_code->{budget_id}, $budget_id, "GetBudgetByCode, check id");
109
is($budget_by_code->{budget_notes}, 'This is a note', "GetBudgetByCode, check notes");
110
105
ok($del_status=DelBudget($budget_id),
111
ok($del_status=DelBudget($budget_id),
106
    "DelBudget returned $del_status");
112
    "DelBudget returned $del_status");
107
- 

Return to bug 7180