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 |
- |
|
|