&& !$processedserialid{$serialid} )
{
my $serinfo = GetSerialInformation($serialid); #TODO duplicates work done by GetSerials2 above
+
for my $d ( qw( publisheddate planneddate )){
if ( $serinfo->{$d} =~m/^00/ ) {
$serinfo->{$d} = q{};
)
|| $serinfo->{'cannotedit'}
);
+ $serinfo->{editdisable} ||= ($serinfo->{status8} and $serinfo->{closed});
push @serialdatalist, $serinfo;
$processedserialid{$serialid} = 1;
}
if ( C4::Context->preference('autoBarcode') eq
'incremental' )
{
- if ( !$bib_record->field($barcodetagfield)
- ->subfield($barcodetagsubfield) )
+ if (
+ !(
+ $bib_record->field($barcodetagfield)
+ && $bib_record->field($barcodetagfield)->subfield($barcodetagsubfield)
+ )
+ )
{
my $sth_barcode = $dbh->prepare(
'select max(abs(barcode)) from items');