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

(-)a/t/db_dependent/Serials.t (-4 / +5 lines)
Lines 234-244 is( @others, 6, "GetSerials returns all serials not arrived and not missing if c Link Here
234
$subscription = C4::Serials::GetSubscription($subscriptionid); # Retrieve the updated subscription
234
$subscription = C4::Serials::GetSubscription($subscriptionid); # Retrieve the updated subscription
235
235
236
my @serialseqs;
236
my @serialseqs;
237
for my $am ( reverse @arrived_missing ) {
237
for my $am ( @arrived_missing ) {
238
    if ( grep {/^$am->{status}$/} qw( 4 41 42 43 44 5 ) ) {
238
    if ( grep {/^$am->{status}$/} qw( 4 41 42 43 44 ) ) {
239
        push @serialseqs, $am->{serialseq}
239
        push @serialseqs, $am->{serialseq}
240
    } elsif ( grep {/^$am->{status}$/} qw( 5 ) ) {
241
        push @serialseqs, 'not issued ' . $am->{serialseq};
240
    }
242
    }
241
}
243
}
242
is( $subscription->{missinglist}, 'not issued ' . join('; ', @serialseqs), "subscription missinglist is updated after ModSerialStatus" );
244
is( $subscription->{missinglist}, join('; ', @serialseqs), "subscription missinglist is updated after ModSerialStatus" );
243
245
244
$dbh->rollback;
246
$dbh->rollback;
245
- 

Return to bug 11843