bug 4084: remove \r from header line for sake of consistency

[koha_fer] / serials / serials-edit.pl

diff --git a/serials/serials-edit.pl b/serials/serials-edit.pl
index bd7d420..dee624c 100755 (executable)
--- a/serials/serials-edit.pl
+++ b/serials/serials-edit.pl
@@ -108,21 +108,22 @@ unless ( scalar(@serialids) ) {
 
     print $query->redirect($string);
 }
+
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
     {
-        template_name   => "serials/serials-edit.tmpl",
-        query           => $query,
-        type            => "intranet",
-        authnotrequired => 0,
-        flagsrequired   => { serials => 1 },
-        debug           => 1,
+       template_name   => "serials/serials-edit.tmpl",
+       query           => $query,
+       type            => "intranet",
+       authnotrequired => 0,
+       flagsrequired   => {serials => 'receive_serials'},
+       debug           => 1,
     }
 );
 
 my @serialdatalist;
 my %processedserialid;
 
-my $today = C4::Dates->new();  
+my $today = C4::Dates->new();
 foreach my $tmpserialid (@serialids) {
 
     #filtering serialid for duplication
@@ -134,7 +135,7 @@ foreach my $tmpserialid (@serialids) {
         my $data = GetSerialInformation($tmpserialid);
         $data->{publisheddate} = format_date( $data->{publisheddate} );
         $data->{planneddate}   = format_date( $data->{planneddate} );
-       $data->{arriveddate}=$today->output('us');
+        $data->{arriveddate}=$today->output('syspref');
         $data->{'editdisable'} = (
             (
                 HasSubscriptionExpired( $data->{subscriptionid} )