|
Lines 197-202
$template->param( subscriptions => \@subscriptionloop );
Link Here
|
| 197 |
|
197 |
|
| 198 |
if ( $op and $op eq 'serialchangestatus' ) { |
198 |
if ( $op and $op eq 'serialchangestatus' ) { |
| 199 |
|
199 |
|
|
|
200 |
# Convert serialseqs to UTF-8 to prevent encoding problems |
| 201 |
foreach my $seq (@serialseqs) { |
| 202 |
utf8::decode($seq) unless utf8::is_utf8($seq); |
| 203 |
} |
| 204 |
|
| 200 |
my $newserial; |
205 |
my $newserial; |
| 201 |
for ( my $i = 0 ; $i <= $#serialids ; $i++ ) { |
206 |
for ( my $i = 0 ; $i <= $#serialids ; $i++ ) { |
| 202 |
my ($plan_date, $pub_date); |
207 |
my ($plan_date, $pub_date); |
| 203 |
- |
|
|