-my ($serialdates) = GetLatestSerials($subscriptionid,$count);
-
-my @dates;
-my $i=0;
-foreach my $dateseq (@$serialdates) {
- $dates[$i]->{'planneddate'} = $dateseq->{'planneddate'};
- $dates[$i]->{'serialseq'} = $dateseq->{'serialseq'};
- $dates[$i]->{'serialid'} = $dateseq->{'serialid'};
- if($date_selected eq $dateseq->{'serialid'}){
- $dates[$i]->{'selected'} = ' selected';
- } else {
- $dates[$i]->{'selected'} = '';
- }
- $i++;
+my $serialdates = GetLatestSerials($subscriptionid,$count);
+
+my $dates = [];
+foreach my $dateseq (@{$serialdates}) {
+ my $d = {};
+ $d->{planneddate} = $dateseq->{planneddate};
+ $d->{serialseq} = $dateseq->{serialseq};
+ $d->{serialid} = $dateseq->{serialid};
+ if($date_selected eq $dateseq->{serialid}){
+ $d->{selected} = ' selected';
+ } else {
+ $d->{selected} = q{};
+ }
+ push @{$dates}, $d;