X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=blobdiff_plain;f=lib%2FPackages%2FDoShow.pm;h=3af5e3e7c83056a118a40dcd6ac587677903752b;hp=05baeff8ea08463ed9624692ff7b5d604f26e39b;hb=38bdd83cda111c78634c4e9824e872a26aa96fc2;hpb=b688b16487ef2ca8ad7861d7c20da16a9f3f4448 diff --git a/lib/Packages/DoShow.pm b/lib/Packages/DoShow.pm index 05baeff..3af5e3e 100644 --- a/lib/Packages/DoShow.pm +++ b/lib/Packages/DoShow.pm @@ -111,6 +111,8 @@ sub do_show { debug( "find source package: source=$source", 1) if DEBUG; my $src_data = $sources_all{"$archive $suite $source"}; + #FIXME: should be $main_archive or similar, not hardcoded "us" + $src_data = $sources_all{"us $suite $source"} unless $src_data; $page->add_src_data( $source, $src_data ) if $src_data; @@ -335,17 +337,12 @@ sub moreinfo { if (defined($files) and @$files) { foreach( @$files ) { my ($src_file_md5, $src_file_size, $src_file_name) = split /\s/o, $_; - my ($name, $server, $path); + my ($server, $path); # non-US hack ($server = lc $page->get_newest('archive')) =~ s/-//go; $server = $env->{$server}||$env->{us}; - $path = "$src_dir/$src_file_name"; - if ($src_file_name =~ /dsc$/) { - $name = 'dsc' - } else { - $name = $src_file_name; - } - push @downloads, { name => $name, server => $server, path => $path }; + $path = "/$src_dir/$src_file_name"; + push @downloads, { name => $src_file_name, server => $server, path => $path }; } } $contents->{src}{downloads} = \@downloads;