sub disp_cal {
	my $self = shift;
	
	my $form = $self->load_tmpl('calendar01.html', die_on_bad_params => 0);
	my $calendar = Calendar->calendar_array;
	print STDERR Dumper( $calendar );
	$form->param( 'row' => $calendar );
	my $output = $form->output;
	return $output;
}