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

(-)a/t/db_dependent/Serials_2.t (-4 / +10 lines)
Lines 3-8 use Modern::Perl; Link Here
3
3
4
use Test::More tests => 4;
4
use Test::More tests => 4;
5
5
6
use MARC::Record;
7
use C4::Biblio qw( AddBiblio );
6
use_ok('C4::Serials');
8
use_ok('C4::Serials');
7
use_ok('C4::Budgets');
9
use_ok('C4::Budgets');
8
10
Lines 13-23 $dbh->{RaiseError} = 1; Link Here
13
my $supplierlist=eval{GetSuppliersWithLateIssues()};
15
my $supplierlist=eval{GetSuppliersWithLateIssues()};
14
ok(length($@)==0,"No SQL problem in GetSuppliersWithLateIssues");
16
ok(length($@)==0,"No SQL problem in GetSuppliersWithLateIssues");
15
17
16
my $biblionumber = 1;
18
my $record = MARC::Record->new();
19
$record->append_fields(
20
    MARC::Field->new( '952', '0', '0', a => 'CPL', b => 'CPL' )
21
);
22
my ( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio($record, '');
23
17
my $budgetid;
24
my $budgetid;
18
my $bpid = AddBudgetPeriod({
25
my $bpid = AddBudgetPeriod({
19
    budget_period_startdate => '01-01-2015',
26
    budget_period_startdate => '01-01-2015',
20
    budget_period_enddate   => '31-12-2015',
27
    budget_period_enddate   => '12-31-2015',
21
    budget_description      => "budget desc"
28
    budget_description      => "budget desc"
22
});
29
});
23
30
Lines 37-43 my $subscriptionid = NewSubscription( Link Here
37
    undef,      undef,  undef, undef, undef,      undef,         undef,  undef,
44
    undef,      undef,  undef, undef, undef,      undef,         undef,  undef,
38
    undef,      undef,  undef, undef, undef,      undef,         undef,  1,
45
    undef,      undef,  undef, undef, undef,      undef,         undef,  1,
39
    "notes",    undef,  undef, undef, undef,      undef,         undef,  0,
46
    "notes",    undef,  undef, undef, undef,      undef,         undef,  0,
40
    "intnotes", 0,      undef, undef, 0,          undef,         '31-12-2013',
47
    "intnotes", 0,      undef, undef, 0,          undef,         '12-31-2013',
41
);
48
);
42
die unless $subscriptionid;
49
die unless $subscriptionid;
43
50
44
- 

Return to bug 8435