- my @archs_to_print = grep { !$archs_printed{$_} } sort keys %{$pkgs->{$suite}{$v}};
- $str .= sprintf( "<br>%s$archive_str: %s\n",
- $v, join (" ", @archs_to_print ))
- if @archs_to_print;
- $archs_printed{$_}++ foreach @archs_to_print;
- }
- if (my $p = $provided_by->{$suite}) {
- $str .= '<br>'._g( 'also provided by: ' ).
- join( ', ', map { "<a href=\"".
- make_url($_,'',$override)."\">$_</a>" } @$p);
- }
- $str .= "</li>\n";
- } elsif (my $p = $provided_by->{$suite}) {
- $str .= sprintf( "<li><a href=\"%s\">%s</a>: "._g('Virtual package').'<br>',
- make_url($pkg,'',$override), $suite );
- $str .= _g( 'provided by: ' ).
- join( ', ', map { "<a href=\"".
- make_url($_,'',$override)."\">$_</a>" } @$p);
+ $version{architectures} = [ grep { !$archs_printed{$_} } sort keys %{$pkgs->{$suite}{$v}} ];
+ push @{$suite{versions}}, \%version if @{$version{architectures}};
+
+ $archs_printed{$_}++ foreach @{$version{architectures}};