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")
+ if ( ($suite ne "woody") && ($suite ne "bo")
&& ($subsection ne 'debian-installer')) {
$d{contents_avail} = 1;
}
opts => $opts,
env => \%FTP_SITES,
bugreports => 1, sourcedownload => 1,
- changesandcopy => 1, maintainers => 1,
+ changesandcopy => 0, maintainers => 1,
search => 1 );
} else { # unless $page->is_virtual
$contents{is_virtual} = 1;
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} );
}
#
opts => $opts,
env => \%FTP_SITES,
bugreports => 1,
- changesandcopy => 1, maintainers => 1,
+ changesandcopy => 0, maintainers => 1,
search => 1, is_source => 1 );
} # else (unless $opts->{source})
} # 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 ) {