Bug 5347: Followup change class for message + Unit test

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 ceeffd6..817c626 100644 (file)
--- 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 cca2d8f..3eaf8a6 100644 (file)
--- 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 1d4f36a..ab0b6d0 100755 (executable)
--- 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' ] ) );