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,
}
);
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);
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';
}