|
Lines 425-431
sub PrepareSerialsData {
Link Here
|
| 425 |
} |
425 |
} |
| 426 |
} |
426 |
} |
| 427 |
$subs->{ "status" . $subs->{'status'} } = 1; |
427 |
$subs->{ "status" . $subs->{'status'} } = 1; |
| 428 |
if ( grep { $_ == $subs->{status} } ( 1, 3, 4, 41, 42, 43, 44, 7 ) ) { |
428 |
if ( grep { $_ == $subs->{status} } qw( 1 3 4 41 42 43 44 7 ) ) { |
| 429 |
$subs->{"checked"} = 1; |
429 |
$subs->{"checked"} = 1; |
| 430 |
} |
430 |
} |
| 431 |
|
431 |
|
|
Lines 1250-1259
sub ModSerialStatus {
Link Here
|
| 1250 |
if ( $status == 2 || ($oldstatus == 2 && $status != 2) ) { |
1250 |
if ( $status == 2 || ($oldstatus == 2 && $status != 2) ) { |
| 1251 |
_update_receivedlist($subscriptionid); |
1251 |
_update_receivedlist($subscriptionid); |
| 1252 |
} |
1252 |
} |
| 1253 |
if( grep { $_ == $status } ( 4, 41, 42, 43, 44, 5 ) |
1253 |
my @missing_statuses = qw( 4 41 42 43 44 ); |
|
|
1254 |
if ( ( grep { $_ == $status } ( @missing_statuses, 5 ) ) |
| 1254 |
|| ( |
1255 |
|| ( |
| 1255 |
grep { $_ == $oldstatus } ( 4, 41, 42, 43, 44 ) |
1256 |
( grep { $_ == $oldstatus } @missing_statuses ) |
| 1256 |
&& ! grep { $_ == $status } ( 4, 41, 42, 43, 44 ) ) |
1257 |
&& ! ( grep { $_ == $status } @missing_statuses ) ) |
| 1257 |
|| ($oldstatus == 5 && $status != 5)) { |
1258 |
|| ($oldstatus == 5 && $status != 5)) { |
| 1258 |
_update_missinglist($subscriptionid); |
1259 |
_update_missinglist($subscriptionid); |
| 1259 |
} |
1260 |
} |
| 1260 |
- |
|
|