use Packages::Config qw( $DBDIR @SUITES @ARCHIVES @SECTIONS
@ARCHITECTURES %FTP_SITES
@LANGUAGES @DDTP_LANGUAGES);
-use Packages::I18N::Locale;
use Packages::CGI qw( :DEFAULT make_url make_search_url );
use Packages::DB;
use Packages::Search qw( :all );
my $provided_by = $page->{provided_by};
$contents{providers} = [];
- pkg_list( \%packages, $opts, $provided_by, 'en', $contents{providers} ) if $provided_by;
+ pkg_list( \%packages, $opts, $provided_by, $contents{providers} ) if $provided_by;
#
# display dependencies
$d{version} = $versions->{$a} if $multiple_versions;
$d{archive} = $archives->{$a};
- if ( ($suite ne "experimental")
- && ($subsection ne 'debian-installer')) {
+ if ($subsection ne 'debian-installer') {
$d{contents_avail} = 1;
}
push @downloads, \%d;
my $provided_by = $page->{provided_by};
$contents{providers} = [];
- pkg_list( \%packages, $opts, $provided_by, 'en', $contents{providers} );
+ pkg_list( \%packages, $opts, $provided_by, $contents{providers} );
} # else (unless $page->is_virtual)
} else { # unless $opts->{source}
my $binaries = find_binaries( $pkg, $archive, $suite, \%src2bin );
if ($binaries && @$binaries) {
$contents{binaries} = [];
- pkg_list( \%packages, $opts, $binaries, 'en', $contents{binaries} );
+ pkg_list( \%packages, $opts, $binaries, $contents{binaries} );
}
#
if ($info{sourcedownload}) {
$contents->{src}{url} = make_url($source,'',{source=>'source'});
$contents->{src}{pkg} = $source;
+ $contents->{src}{version} = $source_version;
my @downloads;
my $files = $page->get_src( 'files' );
if ($info{maintainers}) {
my $uploaders = $page->get_src( 'uploaders' );
+ my $orig_uploaders = $page->get_src( 'orig_uploaders' );
if ($uploaders && @$uploaders) {
my @maintainers = map { { name => $_->[0], mail => $_->[1] } } @$uploaders;
$contents->{maintainers} = \@maintainers;
}
+ if ($orig_uploaders && @$orig_uploaders) {
+ my @orig_maintainers = map { { name => $_->[0], mail => $_->[1] } } @$orig_uploaders;
+ $contents->{original_maintainers} = \@orig_maintainers;
+ }
}
-
}
sub providers {
my $entry = $entries{$p_name} ||
read_entry_simple( $packages, $p_name, $opts->{h_archives}, $suite);
my $short_desc = $entry->[-1];
- my $desc_md5 = $entry->[-2];
+ my $desc_md5 = $entry->[-2] || '';
my $arch = $entry->[3];
my $archive = $entry->[1];
my $p_suite = $entry->[2];
} # end print_deps
sub pkg_list {
- my ( $packages, $opts, $pkgs, $lang, $list ) = @_;
+ my ( $packages, $opts, $pkgs, $list ) = @_;
my $suite = $opts->{suite}[0];
foreach my $p ( sort @$pkgs ) {