From d12a381f49322d7a908d0fd9050a1bcdf1be800c Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@biblibre.com>
Date: Tue, 17 Jan 2012 11:39:54 +0100
Subject: [PATCH] Bug 5347: Followup change class for message + Unit test

---
 koha-tmpl/intranet-tmpl/prog/en/css/staff-global.css   |  6 ------
 .../intranet-tmpl/prog/en/modules/acqui/lateorders.tt  |  2 +-
 t/db_dependent/Acquisition.t                           | 10 +++++++++-
 3 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/koha-tmpl/intranet-tmpl/prog/en/css/staff-global.css b/koha-tmpl/intranet-tmpl/prog/en/css/staff-global.css
index ceeffd60df..817c626431 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/css/staff-global.css
+++ b/koha-tmpl/intranet-tmpl/prog/en/css/staff-global.css
@@ -2138,9 +2138,3 @@ div.pager input.pagedisplay {
 	text-align : center;
 }
 
-div.info {
-   border : 2px dashed #990000;
-   background-color : #99FFCC;
-   padding : .5em;
-   margin : 1em;
-}
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/lateorders.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/lateorders.tt
index cca2d8fdcf..3eaf8a60d0 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/lateorders.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/lateorders.tt
@@ -42,7 +42,7 @@ $(document).ready(function() {
     [% END %]
 [% END %]
 [% IF info_claim %]
-    <div class="info">Email has been sent.</div>
+    <div class="dialog message">Email has been sent.</div>
 [% END %]
 [% IF ( lateorders ) %]
 <form action="lateorders.pl" name="claim" method="post">
diff --git a/t/db_dependent/Acquisition.t b/t/db_dependent/Acquisition.t
index 1d4f36a4a8..ab0b6d0294 100755
--- a/t/db_dependent/Acquisition.t
+++ b/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' ] ) );
-- 
2.39.2