query => $query,
type => 'intranet',
authnotrequired => 0,
- flagsrequired => { serials => 1 },
+ flagsrequired => { serials => 'receive_serials' },
debug => 1,
}
);
&& !$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');
$template->param(
serialsadditems => $serialdatalist[0]->{'serialsadditems'},
callnumber => $serialdatalist[0]->{'callnumber'},
+ internalnotes => $serialdatalist[0]->{'internalnotes'},
bibliotitle => $biblio->{'title'},
biblionumber => $serialdatalist[0]->{'biblionumber'},
serialslist => \@serialdatalist,
default_bib_view => $default_bib_view,
location => $locationlib,
+ (uc(C4::Context->preference("marcflavour"))) => 1
+
);
output_html_with_http_headers $query, $cookie, $template->output;