sub build_url {
   my $url = URI->new(shift(@_));
   $url->query_form(@_);
   return $url;
}

sub text_to_js_lit {
   my $s = $_[0];
   $s =~ s/\\/\\\\/g;
   $s =~ s/'/\''/g;
   return "'$s'";
}

sub text_to_html_val {
   my $s = $_[0];
   $s =~ s/&/&/g;
   $s =~ s/</&lt;/g;
   $s =~ s/"/&quote;/g;
   return qq{"$s"};
}