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