$cell->{serialsadditems} = 1;
}
$cell->{'subscriptionid'} = $subscriptionid;
+ $cell->{biblionumber} = $serialdatalist[0]->{'biblionumber'};
$cell->{'itemid'} = 'NNEW';
$cell->{'serialid'} = 'NEW';
$cell->{'issuesatonce'} = 1;
if ( $op and $op eq 'serialchangestatus' ) {
+ # Convert serialseqs to UTF-8 to prevent encoding problems
+ foreach my $seq (@serialseqs) {
+ utf8::decode($seq) unless utf8::is_utf8($seq);
+ }
+
my $newserial;
for ( my $i = 0 ; $i <= $#serialids ; $i++ ) {
my ($plan_date, $pub_date);