X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=blobdiff_plain;f=lib%2FPackages%2FDoShow.pm;h=9d6df68541f240871f633e7beeb48e66fd2e1ac2;hp=01590653cf64edcddb1d8e7f9446e26e22fa05e1;hb=0c1a44893f94f98deac8435e6ab235228880087f;hpb=1a21b74ad9ccf9572750caaed6d5e22cd395fa47 diff --git a/lib/Packages/DoShow.pm b/lib/Packages/DoShow.pm index 0159065..9d6df68 100644 --- a/lib/Packages/DoShow.pm +++ b/lib/Packages/DoShow.pm @@ -201,7 +201,7 @@ sub do_show { 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 @@ -254,7 +254,7 @@ sub do_show { 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} @@ -286,7 +286,7 @@ sub do_show { 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} ); } # @@ -356,6 +356,7 @@ sub moreinfo { 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' ); @@ -490,7 +491,7 @@ sub build_deps { } # 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 ) {