package Calendar
@ISA = qw()

sub new
my ($module) = @_;
#	$this->SUPER::new(
return $this;

sub DESTROY
my $this = shift;
	$this->SUPER::DESTROY(

sub GetNowDate
my ($this) = @_;
return ($year, $month, $day, $hh, $mm, $ss);

sub FillDate
my ($this, $Year, $Month, $Day) = @_;
return ($Year, $Month, $Day);

sub CheckDate
my ($this, $App, $Year, $Month, $Day) = @_;
return 1;
return 0;

sub CorrectMonth
my ($this, $App, $Year, $Month) = @_;
return ($Year, $Month);

sub CorrectDate
my ($this, $App, $Year, $Month, $Day, $NonRecursive) = @_;
return ($Year, $Month, $Day);
return ($Year, $Month, $Day);
return ($Year, $Month, $Day);

sub GetToDoPageString
my ($this, $SApp, %arg) = @_;
return "<H3>Error in Schedule.pm: Can not open Schedule DB</H3>";
return $s;
return $s;

sub GetMonthHTMLString
my ($this, $App, $pParams) = @_;
return $content;

sub ShowMonth
my ($this, $App, $pParams) = @_;
return $s;