view release on metacpan or  search on metacpan

lib/CGI/Application/Demo/Basic.pm  view on Meta::CPAN

	$template -> param(sid => $self -> session -> id);
	$template -> param(title => $self -> param('title') );
	$template -> param(url => $self -> query -> url . $self -> query -> path_info);

	return $template -> output;

}	# End of start.

# -----------------------------------------------

sub update_options
{
	my($self) = @_;
	my(@key)  = keys %{${$self -> param('key')}{'option'} };

	$self -> log -> info('Called update_options');

	my($value, $default, $minimum, $maximum);

	for (@key)
	{