+sub print_navlink {
+ my($params, $cond, $caption, $skip) = @_;
+
+ if ($cond) {
+ print(' <a href="', navlink($params, $caption, $skip),
+ '"', ">$caption</a>\n");
+ } else {
+ print qq[ <span class="disabled">$caption</span>\n];
+ }
+}
+
+sub navlink {
+ my($params, $caption, $skip) = @_;
+ local $params->{_skip} = $skip;
+ my $url = "?" . join("&", map { "$_=" . $params->{$_} } sort keys %$params);
+ $url = xml_encode($url);
+ return $url;
+}
+
+# Just make this once; forge the connection on first use
+our $conn = undef;