#
# This file is part of Koha.
#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
+# Koha is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# Koha is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
#
-# You should have received a copy of the GNU General Public License along
-# with Koha; if not, write to the Free Software Foundation, Inc.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+# You should have received a copy of the GNU General Public License
+# along with Koha; if not, see <http://www.gnu.org/licenses>.
=head1 NAME
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
+use Encode qw( decode is_utf8 );
use C4::Auth;
use C4::Dates qw/format_date format_date_in_iso/;
use C4::Biblio;
my @serialseqs = $query->param('serialseq');
my @planneddates = $query->param('planneddate');
my @publisheddates = $query->param('publisheddate');
+my @publisheddatetexts = $query->param('publisheddatetext');
my @status = $query->param('status');
my @notes = $query->param('notes');
my @subscriptionids = $query->param('subscriptionid');
# If user comes from subscription details
unless (@serialids) {
my $serstatus = $query->param('serstatus');
+ my @statuses = split ',', $serstatus;
if ($serstatus) {
foreach my $subscriptionid (@subscriptionids) {
- my @tmpser = GetSerials2( $subscriptionid, $serstatus );
+ my @tmpser = GetSerials2( $subscriptionid, \@statuses );
push @serialids, map { $_->{serialid} } @tmpser;
}
}
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
- template_name => 'serials/serials-edit.tmpl',
+ template_name => 'serials/serials-edit.tt',
query => $query,
type => 'intranet',
authnotrequired => 0,
&& !$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} = 0 if C4::Auth::haspermission( C4::Context->userenv->{id}, { serials => 'receive_serials' } );
+ $serinfo->{editdisable} ||= ($serinfo->{status8} and $serinfo->{closed});
push @serialdatalist, $serinfo;
$processedserialid{$serialid} = 1;
}
# Convert serialseqs to UTF-8 to prevent encoding problems
foreach my $seq (@serialseqs) {
- utf8::decode($seq) unless utf8::is_utf8($seq);
+ $seq = Encode::decode('UTF-8', $seq) unless Encode::is_utf8($seq);
}
my $newserial;
$status[$i],
$plan_date,
$pub_date,
+ $publisheddatetexts[$i],
$notes[$i]
);
}
$serialseqs[$i],
$plan_date,
$pub_date,
+ $publisheddatetexts[$i],
$status[$i],
$notes[$i]
);
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;