use Deb::Versions;
use Packages::I18N::Locale;
use Packages::Search qw( :all );
-use Packages::CGI;
+use Packages::CGI qw( :DEFAULT error );
use Packages::DB;
use Packages::Config qw( $DBDIR @SUITES @ARCHIVES @ARCHITECTURES $ROOT );
sub do_search_contents {
- my ($params, $opts, $html_header, $page_content) = @_;
+ my ($params, $opts, $page_content) = @_;
if ($params->{errors}{keywords}) {
fatal_error( _g( "keyword not valid or missing" ) );
#FIXME: that's extremely hacky atm
if ($params->{values}{suite}{no_replace}[0] eq 'default') {
$params->{values}{suite}{no_replace} =
- $params->{values}{suite}{final} = $opts->{suite} = [ 'stable' ];
+ $params->{values}{suite}{final} = $opts->{suite} = [ 'etch' ];
}
if (@{$opts->{suite}} > 1) {
if @keywords;
my $kw = reverse $first_kw;
+ $kw =~ s{/+$}{};
# exact filename searching follows trivially:
$kw = "$kw/" if $mode eq 'exactfilename';