Lines 253-259
my ( $expected_serial ) = GetSerials2( $subscriptionid, [1] );
Link Here
|
253 |
my $serialexpected = (C4::Serials::findSerialsByStatus(1,$subscriptionid))[0]; |
253 |
my $serialexpected = (C4::Serials::findSerialsByStatus(1,$subscriptionid))[0]; |
254 |
#delete serial with status Expected |
254 |
#delete serial with status Expected |
255 |
C4::Serials::ModSerialStatus( $serialexpected->{serialid},$serialexpected->{serialseq},$publisheddate,$publisheddate, $publisheddate,'1','an useless note'); |
255 |
C4::Serials::ModSerialStatus( $serialexpected->{serialid},$serialexpected->{serialseq},$publisheddate,$publisheddate, $publisheddate,'1','an useless note'); |
256 |
my @serialsByStatus = C4::Serials::findSerialsByStatus(1,$subscriptionid); |
256 |
@serialsByStatus = C4::Serials::findSerialsByStatus(1,$subscriptionid); |
257 |
is (@serialsByStatus,1,"ModSerialStatus delete corectly serial expected and create another if not exist"); |
257 |
is (@serialsByStatus,1,"ModSerialStatus delete corectly serial expected and create another if not exist"); |
258 |
# add 1 serial with status=Expected 1 |
258 |
# add 1 serial with status=Expected 1 |
259 |
C4::Serials::ModSerialStatus( $expected_serial->{serialid}, 'NO.20', $publisheddate, $publisheddate, $publisheddate, '1', 'an useless note' ); |
259 |
C4::Serials::ModSerialStatus( $expected_serial->{serialid}, 'NO.20', $publisheddate, $publisheddate, $publisheddate, '1', 'an useless note' ); |
260 |
- |
|
|