use CGI qw/:standard/;

# An efficient way to pass param variables on through a page
sub export_form_vars {
	my @input = @_;
	my $html = "\n";
	foreach my $key (@input) {
		my @vars =  param $key;
		foreach my $val (@vars) {
			$val = escapeHTML($val);
			$html .= "<input type=hidden name=\"$key\" value=\"$val\">\n"
		}	
	}
	return $html
}

sub export_form_vars_to_query_string {
	my @input = @_;
	my $html;
	foreach my $var (@input) {
		$var = escape($var);
		$html .= '&amp;'."$var=".param($var);
	}
	$html =~ s/^&amp;//;
	return $html
}

sub export_entire_form {
	my $html;
	foreach my $k (param) { 
			my $v = param($k);
			$html .= '<input type=hidden name="'.escapeHTML($k).'" value="'.escapeHTML($v)."\">\n"	
	}	
	return $html;
}