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 |
- |
|
|