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");
}
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}){