return 1;

sub init_data {
	$butt_number = 1;
	$home = 0;
	$previous = 0;
	$next = 0;
	$end = 0;
}

sub get_cgi_data {
	$home = param("Home.x");
	$previous = param("Previous.x");
	$next = param("Next.x");
	$end = param("End.x");

	if ($home > 0) {
		$butt_number = 1;
	}
	if ($previous > 0) {
		$butt_number = 2;
	}
	if ($next > 0) {
		$butt_number = 3;
	}
	if ($end > 0) {
		$butt_number = 4;
	}
}

sub get_dtb_data {
	$f07 = "Name";
	$f08 = "Name";


	$f09 = "f09";
	$f10 = "f10";
	$f11 = "A_01.1, A_01.21, ";

	@sved = split(/, /, $f11);
	$sved_count = $#sved + 1;
}