# p[^ǗpW[
# 2003/11/16
# ₩
=comment

$ks_param = ks_param->new->set_param(
	tree	=> $FORM{tree},
	foo		=> 'bar',
);

L̂悤ɒlZbgĂ
ȉ̂悤Ɏg܂

print qq{
<form>
	<INPUT type="submit" name="reload" value="[h">
	$ks_param->{post}
</form>
};

print qq{ <a href="$cgiurl?$ks_param->{get}">N</a> };

=cut
package ks_param;

sub new { bless({}, $_[0]); }

sub set_param {
	my $me = shift;

	# vf㏑
	%{ $me->{param} } = (%{ $me->{param} }, @_,);

	# vf''̃nbV폜
	for my $param (keys %{ $me->{param} }) {
		if ($me->{param}{$param} eq '') { delete $me->{param}{$param} }
	}

	$me->{post} = join("\n", map { qq~<input type="hidden" name="$_" value="$me->{param}{$_}">~ } keys %{ $me->{param} } );
	$me->{get}  = join('&', map { "$_=$me->{param}{$_}" } keys %{ $me->{param} });

	return $me;
}

sub get_param {
	my $me = shift;
	my $key = shift;

	return $me->{param}{$key};
}

1;
