";
$str .= sprintf( "
".gettext( "More Information on %s" )."
",
@@ -126,10 +128,10 @@ sub pmoreinfo {
if ($info{sourcedownload}) {
my $files = $page->get_src( 'files' );
my $path = (@{$opts->{archive}} >1) ?
- $opts->{suite} :
- "$opts->{suite}/$opts->{archive}[0]";
+ $suite :
+ "$suite/$opts->{archive}[0]";
$str .= gettext( "Source Package:" );
- $str .= "
$source, ".
+ $str .= "
$source, ".
gettext( "Download" ).":\n";
unless (defined($files) and @$files) {
@@ -206,8 +208,9 @@ sub pmoreinfo {
if ($info{search}) {
my $encodedname = uri_escape( $name );
- my $search_url = $is_source ? $SRC_SEARCH_URL : $SEARCH_URL;
- $str .= "
".sprintf( gettext( "Search for other versions of %s" ), $search_url.$encodedname, $name )."
\n";
+ my $search_url = $is_source ? "$ROOT/source" : $ROOT;
+ $str .= "
".sprintf( gettext( "Search for other versions of %s" ),
+ "$search_url/$encodedname", $name )."
\n";
}
$str .= "
\n";
@@ -240,9 +243,12 @@ sub dep_item {
sub print_deps {
my ( $packages, $opts, $pkg, $relations, $type) = @_;
my %dep_type = ('depends' => 'dep', 'recommends' => 'rec',
- 'suggests' => 'sug');
+ 'suggests' => 'sug', 'build-depends' => 'adep',
+ 'build-depends-indep' => 'idep' );
my $res = "