Lines 160-171
is( $bookseller1fromid->{basketcount}, 2, 'Supplier1 has 2 baskets' );
Link Here
|
160 |
|
160 |
|
161 |
#Test subscriptioncount |
161 |
#Test subscriptioncount |
162 |
my $dt_today = dt_from_string; |
162 |
my $dt_today = dt_from_string; |
163 |
my $today = output_pref( $dt_today, 'iso', '24hr', 1 ); |
163 |
my $today = output_pref({ dt => $dt_today, dateformat => 'iso', timeformat => '24hr', dateonly => 1 }); |
164 |
|
164 |
|
165 |
my $dt_today1 = dt_from_string; |
165 |
my $dt_today1 = dt_from_string; |
166 |
my $dur5 = DateTime::Duration->new( days => -5 ); |
166 |
my $dur5 = DateTime::Duration->new( days => -5 ); |
167 |
$dt_today1->add_duration($dur5); |
167 |
$dt_today1->add_duration($dur5); |
168 |
my $daysago5 = output_pref( $dt_today1, 'iso', '24hr', 1 ); |
168 |
my $daysago5 = output_pref({ dt => $dt_today1, dateformat => 'iso', timeformat => '24hr', dateonly => 1 }); |
169 |
|
169 |
|
170 |
my $budgetperiod = C4::Budgets::AddBudgetPeriod({ |
170 |
my $budgetperiod = C4::Budgets::AddBudgetPeriod({ |
171 |
budget_period_startdate => $daysago5, |
171 |
budget_period_startdate => $daysago5, |
Lines 346-352
my $basket2info = {
Link Here
|
346 |
my $dt_today2 = dt_from_string; |
346 |
my $dt_today2 = dt_from_string; |
347 |
my $dur10 = DateTime::Duration->new( days => -10 ); |
347 |
my $dur10 = DateTime::Duration->new( days => -10 ); |
348 |
$dt_today2->add_duration($dur10); |
348 |
$dt_today2->add_duration($dur10); |
349 |
my $daysago10 = output_pref( $dt_today2, 'iso', '24hr', 1 ); |
349 |
my $daysago10 = output_pref({ dt => $dt_today2, dateformat => 'iso', timeformat => '24hr', dateonly => 1 }); |
350 |
my $basket3info = { |
350 |
my $basket3info = { |
351 |
basketno => $sample_basket3, |
351 |
basketno => $sample_basket3, |
352 |
closedate => $daysago10, |
352 |
closedate => $daysago10, |
Lines 509-515
isnt( exists( $suppliers{$id_supplier4} ), 1, "Supplier4 hasnt late orders" );
Link Here
|
509 |
my $dt_today3 = dt_from_string; |
509 |
my $dt_today3 = dt_from_string; |
510 |
my $dur4 = DateTime::Duration->new( days => -4 ); |
510 |
my $dur4 = DateTime::Duration->new( days => -4 ); |
511 |
$dt_today3->add_duration($dur4); |
511 |
$dt_today3->add_duration($dur4); |
512 |
my $daysago4 = output_pref( $dt_today3, 'iso', '24hr', 1 ); |
512 |
my $daysago4 = output_pref({ dt => $dt_today3, dateformat => 'iso', timeformat => '24hr', dateonly => 1 }); |
513 |
%suppliers = |
513 |
%suppliers = |
514 |
C4::Bookseller::GetBooksellersWithLateOrders( undef, $daysago4, undef ); |
514 |
C4::Bookseller::GetBooksellersWithLateOrders( undef, $daysago4, undef ); |
515 |
|
515 |
|
516 |
- |
|
|