|
Lines 217-222
sub GetSerialInformation {
Link Here
|
| 217 |
$data->{'subscriptionexpired'} = HasSubscriptionExpired( $data->{'subscriptionid'} ) && $data->{'status'} == 1; |
217 |
$data->{'subscriptionexpired'} = HasSubscriptionExpired( $data->{'subscriptionid'} ) && $data->{'status'} == 1; |
| 218 |
$data->{'abouttoexpire'} = abouttoexpire( $data->{'subscriptionid'} ); |
218 |
$data->{'abouttoexpire'} = abouttoexpire( $data->{'subscriptionid'} ); |
| 219 |
$data->{cannotedit} = not can_edit_subscription( $data ); |
219 |
$data->{cannotedit} = not can_edit_subscription( $data ); |
|
|
220 |
|
| 221 |
# dealing with number pattern that uses publication date |
| 222 |
if ( !defined($data->{numberpattern}) && defined($data->{pubdatepatternformat}) ){ |
| 223 |
my $pubdatepatternformat = $data->{pubdatepatternformat}; |
| 224 |
if ( $pubdatepatternformat eq 'dmy' ){ |
| 225 |
$data->{serialseq} = dt_from_string( $data->{publisheddate} )->strftime('%d %B %Y'); |
| 226 |
} elsif ( $pubdatepatternformat eq 'mdy' ){ |
| 227 |
$data->{serialseq} = dt_from_string( $data->{publisheddate} )->strftime('%B %d %Y'); |
| 228 |
} elsif ( $pubdatepatternformat eq 'ydm' ){ |
| 229 |
$data->{serialseq} = dt_from_string( $data->{publisheddate} )->strftime('%Y %d %B'); |
| 230 |
} else { |
| 231 |
$data->{serialseq} = dt_from_string( $data->{publisheddate} )->strftime('%Y %B %d'); |
| 232 |
} |
| 233 |
} |
| 234 |
|
| 220 |
return $data; |
235 |
return $data; |
| 221 |
} |
236 |
} |
| 222 |
|
237 |
|
| 223 |
- |
|
|