-if (@serialseqs){
- my @information;
- my $index;
- foreach my $seq (@serialseqs){
- if ($seq){
- ### FIXME This limitation that a serial must be given a title may not be very efficient for some library who do not update serials titles.
- push @information,
- { serialseq=>$seq,
- publisheddate=>$publisheddates[$index],
- planneddate=>$planneddates[$index],
- notes=>$notes[$index],
- status=>$status[$index]
- }
- }
- $index++;
- }
- $template->param('information'=>\@information);
-}
-my @subscriptions;
-if ($searched){
- @subscriptions = GetSubscriptions( $title, $ISSN, $biblionumber );
-}
-
-# to toggle between create or edit routing list options
-if ($routing) {
- for my $subscription ( @subscriptions) {
- $subscription->{routingedit} = check_routing( $subscription->{subscriptionid} );
- $subscription->{branchname} = GetBranchName ( $subscription->{branchcode} );
- }
-}
-