@@ -, +, @@ --- .../intranet-tmpl/prog/en/css/staff-global.css | 7 ------- .../prog/en/modules/acqui/lateorders.tt | 2 +- t/db_dependent/Acquisition.t | 10 +++++++++- 3 files changed, 10 insertions(+), 9 deletions(-) --- a/koha-tmpl/intranet-tmpl/prog/en/css/staff-global.css +++ a/koha-tmpl/intranet-tmpl/prog/en/css/staff-global.css @@ -2134,10 +2134,3 @@ div.pager input.pagedisplay { text-align : center; } -div.info { - border : 2px dashed #990000; - background-color : #99FFCC; - padding : .5em; - margin : 1em; -} - --- a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/lateorders.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/lateorders.tt @@ -42,7 +42,7 @@ $(document).ready(function() { [% END %] [% END %] [% IF info_claim %] -
Email has been sent.
+
Email has been sent.
[% END %] [% IF ( lateorders ) %]
--- a/t/db_dependent/Acquisition.t +++ a/t/db_dependent/Acquisition.t @@ -6,10 +6,11 @@ use strict; use warnings; use Data::Dumper; +use POSIX qw(strftime); use C4::Bookseller qw( GetBookSellerFromId ); -use Test::More tests => 37; +use Test::More tests => 38; BEGIN { use_ok('C4::Acquisition'); @@ -30,6 +31,13 @@ my $supplierid = 1; my $grouped = 0; my $orders = GetPendingOrders( $supplierid, $grouped ); isa_ok( $orders, 'ARRAY' ); + +my @lateorders = GetLateOrders(0); +my $order = $lateorders[0]; +AddClaim( $order->{ordernumber} ); +my $neworder = GetOrder( $order->{ordernumber} ); +is( $neworder->{claimed_date}, strftime( "%Y-%m-%d", localtime(time) ), "AddClaim : Check claimed_date" ); + SKIP: { skip 'No relevant orders in database, cannot test baskets', 33 unless( scalar @$orders ); # diag( Data::Dumper->Dump( [ $orders ], [ 'orders' ] ) ); --