use C4::Output;
use C4::Context;
use C4::Serials;
+use C4::Search qw/enabled_staff_search_views/;
use List::MoreUtils qw/uniq/;
my $query = CGI->new();
query => $query,
type => 'intranet',
authnotrequired => 0,
- flagsrequired => { serials => 1 },
+ flagsrequired => { serials => 'receive_serials' },
debug => 1,
}
);
)
|| $serinfo->{'cannotedit'}
);
+ $serinfo->{editdisable} ||= ($serinfo->{status8} and $serinfo->{closed});
push @serialdatalist, $serinfo;
$processedserialid{$serialid} = 1;
}
$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;
sub get_default_view {
my $defaultview = C4::Context->preference('IntranetBiblioDefaultView');
- my $views = { C4::Search::enabled_staff_search_views };
- if ($defaultview eq 'isbd' && $views->{can_view_ISBD}) {
+ my %views = C4::Search::enabled_staff_search_views();
+ if ( $defaultview eq 'isbd' && $views{can_view_ISBD} ) {
return 'ISBDdetail';
- } elsif ($defaultview eq 'marc' && $views->{can_view_MARC}) {
+ }
+ elsif ( $defaultview eq 'marc' && $views{can_view_MARC} ) {
return 'MARCdetail';
- } elsif ($defaultview eq 'labeled_marc' && $views->{can_view_labeledMARC}) {
+ }
+ elsif ( $defaultview eq 'labeled_marc' && $views{can_view_labeledMARC} ) {
return 'labeledMARCdetail';
- } else {
- return 'detail';
}
+ return 'detail';
}