+
+ return "<a href=\"".encode_entities($cgi->self_url).
+ "&page=$page&number=$res_per_page\">$res_per_page</a>";
+}
+
+sub printindexline {
+ my ( $input, $no_results, $opts ) = @_;
+
+ my $index_line;
+ if ($no_results > $opts->{number}) {
+
+ $index_line = prevlink( $input, $opts)." | ".
+ indexline( $input, $opts, $no_results)." | ".
+ nextlink( $input, $opts, $no_results);
+
+ print "<p style=\"text-align:center\">$index_line</p>";
+ }
+}
+
+#sub multipageheader {
+# my ( $input, $no_results, $opts ) = @_;
+#
+# my ($start, $end);
+# if ($opts->{number} =~ /^all$/i) {
+# $start = 1;
+# $end = $no_results;
+# $opts->{number} = $no_results;
+# $opts->{number_all}++;
+# } else {
+# $start = Packages::Search::start( $opts );
+# $end = Packages::Search::end( $opts );
+# if ($end > $no_results) { $end = $no_results; }
+# }
+#
+# print "<p>Found <em>$no_results</em> matching packages,";
+# if ($end == $start) {
+# print " displaying package $end.</p>";
+# } else {
+# print " displaying packages $start to $end.</p>";
+# }
+#
+# printindexline( $input, $no_results, $opts );
+#
+# if ($no_results > 100) {
+# print "<p>Results per page: ";
+# my @resperpagelinks;
+# for (50, 100, 200) {
+# if ($opts->{number} == $_) {
+# push @resperpagelinks, $_;
+# } else {
+# push @resperpagelinks, resperpagelink($input,$opts,$_);
+# }
+# }
+# if ($opts->{number_all}) {
+# push @resperpagelinks, "all";
+# } else {
+# push @resperpagelinks, resperpagelink($input, $opts, "all");
+# }
+# print join( " | ", @resperpagelinks )."</p>";
+# }
+# return ( $start, $end );
+#}
+
+sub string2id {
+ my $string = "@_";
+
+ $string =~ s/[^\w:.-]/_/g;
+ return $string;
+}
+
+our ( %url_params, %query_params );
+
+sub init_url {
+ my ($input, $params, $opts) = @_;
+
+ %url_params = ();
+ %query_params = ();
+
+ if ($params->{values}{lang}{orig} &&
+ (my $l = $params->{values}{lang}{no_replace})) {
+ $url_params{lang} = $l;
+ }
+ if ($params->{values}{source}{no_replace}) {
+ $url_params{source} = 'source';
+ $query_params{source} = 1;
+ }
+ foreach my $p (qw(suite arch)) {
+ if ($params->{values}{$p}{orig}
+ && (ref $params->{values}{$p}{final} eq 'ARRAY')
+ && @{$params->{values}{$p}{final}}) {
+ if (@{$params->{values}{$p}{final}} == 1) {
+ $url_params{$p} = $params->{values}{$p}{final}[0];
+ } else {
+ $url_params{$p} =
+ join(",",@{$params->{values}{$p}{no_replace}});
+ }
+ }
+ }
+ foreach my $p (qw(format searchon mode exact debug)) {
+ if ($params->{values}{$p}{orig}
+ && (my $pv = $params->{values}{$p}{no_replace})) {
+ $url_params{$p} = $pv;
+ }
+ }
+
+ use Data::Dumper;
+ debug( join("\n",Dumper(\%url_params,\%query_params)), 2 ) if DEBUG;
+}
+
+sub make_url {
+ my ($add_path, $add_query, @override) = @_;
+ my (@path, @query_string) = ()x2;
+ my $override = {};
+ if (ref $override[0]) {
+ $override = $override[0];
+ } elsif (@override) {
+ $override = { @override };
+ }
+
+ push @path, $Packages::Config::ROOT;
+ foreach my $p (qw(lang source suite archive arch)) {
+ my $val = $url_params{$p};
+ $val = $override->{$p} if exists $override->{$p};
+ push @path, $val if $val;
+ }
+ foreach my $p (qw(format debug)) {
+ my $val = $url_params{$p};
+ $val = $query_params{$p} if exists $query_params{$p};
+ $val = $override->{$p} if exists $override->{$p};
+ push @query_string, "$p=$val" if $val;
+ }
+ push @path, $add_path if $add_path and $add_path ne '/';
+ push @query_string, $add_query if $add_query;
+
+ my $path = join( '/', @path );
+ my $query_string = join( '&', @query_string );
+ $path .= '/' if $add_path and $add_path eq '/';
+ $path .= "?$query_string" if $query_string;
+
+ return $path;
+}
+
+sub make_search_url {
+ my ($add_path, $add_query, @override) = @_;
+ my (@path, @query_string) = ()x2;
+ my $override ||= {};
+ if (ref $override[0]) {
+ $override = $override[0];
+ } elsif (@override) {
+ $override = { @override };
+ }
+
+ push @path, $Packages::Config::SEARCH_URL
+ if $Packages::Config::SEARCH_URL;
+ foreach my $p (qw(lang source suite archive section subsection
+ arch exact mode searchon format debug)) {
+ my $val = $url_params{$p};
+ $val = $query_params{$p} if exists $query_params{$p};
+ $val = $override->{$p} if exists $override->{$p};
+ push @query_string, "$p=$val" if $val;
+ }
+ push @path, $add_path if $add_path;
+ push @query_string, $add_query if $add_query;
+
+ my $path = join( '/', @path );
+ my $query_string = join( '&', @query_string );
+
+ return "$path?$query_string";