Bug 10671: Update Serials Help

[koha.git] / serials / routing.pl

diff --git a/serials/routing.pl b/serials/routing.pl
index 5dee5ea..5f697ea 100755 (executable)
--- a/serials/routing.pl
+++ b/serials/routing.pl
@@ -62,7 +62,7 @@ if($op eq 'add'){
 if($op eq 'save'){
     my $sth = $dbh->prepare('UPDATE serial SET routingnotes = ? WHERE subscriptionid = ?');
     $sth->execute($notes,$subscriptionid);
-    my $urldate = URI::Escape::uri_escape_utf8($date_selected);
+    my $urldate = URI::Escape::uri_escape($date_selected);
     print $query->redirect("routing-preview.pl?subscriptionid=$subscriptionid&issue=$urldate");
 }
 
@@ -74,7 +74,7 @@ my $serialdates = GetLatestSerials($subscriptionid,$count);
 my $dates = [];
 foreach my $dateseq (@{$serialdates}) {
     my $d = {};
-    $d->{planneddate} = $dateseq->{planneddate};
+    $d->{publisheddate} = $dateseq->{publisheddate};
     $d->{serialseq} = $dateseq->{serialseq};
     $d->{serialid} = $dateseq->{serialid};
     if($date_selected eq $dateseq->{serialid}){