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

(-)a/koha-tmpl/intranet-tmpl/prog/en/css/staff-global.css (-7 lines)
Lines 2134-2143 div.pager input.pagedisplay { Link Here
2134
	text-align : center;
2134
	text-align : center;
2135
}
2135
}
2136
2136
2137
div.info {
2138
   border : 2px dashed #990000;
2139
   background-color : #99FFCC;
2140
   padding : .5em;
2141
   margin : 1em;
2142
}
2143
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/lateorders.tt (-1 / +1 lines)
Lines 42-48 $(document).ready(function() { Link Here
42
    [% END %]
42
    [% END %]
43
[% END %]
43
[% END %]
44
[% IF info_claim %]
44
[% IF info_claim %]
45
    <div class="info">Email has been sent.</div>
45
    <div class="dialog message">Email has been sent.</div>
46
[% END %]
46
[% END %]
47
[% IF ( lateorders ) %]
47
[% IF ( lateorders ) %]
48
<form action="lateorders.pl" name="claim" method="post">
48
<form action="lateorders.pl" name="claim" method="post">
(-)a/t/db_dependent/Acquisition.t (-2 / +9 lines)
Lines 6-15 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
use Data::Dumper;
8
use Data::Dumper;
9
use POSIX qw(strftime);
9
10
10
use C4::Bookseller qw( GetBookSellerFromId );
11
use C4::Bookseller qw( GetBookSellerFromId );
11
12
12
use Test::More tests => 37;
13
use Test::More tests => 38;
13
14
14
BEGIN {
15
BEGIN {
15
    use_ok('C4::Acquisition');
16
    use_ok('C4::Acquisition');
Lines 30-35 my $supplierid = 1; Link Here
30
my $grouped    = 0;
31
my $grouped    = 0;
31
my $orders = GetPendingOrders( $supplierid, $grouped );
32
my $orders = GetPendingOrders( $supplierid, $grouped );
32
isa_ok( $orders, 'ARRAY' );
33
isa_ok( $orders, 'ARRAY' );
34
35
my @lateorders = GetLateOrders(0);
36
my $order = $lateorders[0];
37
AddClaim( $order->{ordernumber} );
38
my $neworder = GetOrder( $order->{ordernumber} );
39
is( $neworder->{claimed_date}, strftime( "%Y-%m-%d", localtime(time) ), "AddClaim : Check claimed_date" );
40
33
SKIP: {
41
SKIP: {
34
    skip 'No relevant orders in database, cannot test baskets', 33 unless( scalar @$orders );
42
    skip 'No relevant orders in database, cannot test baskets', 33 unless( scalar @$orders );
35
    # diag( Data::Dumper->Dump( [ $orders ], [ 'orders' ] ) );
43
    # diag( Data::Dumper->Dump( [ $orders ], [ 'orders' ] ) );
36
- 

Return to bug 5347