[$ if ($day == $dom) $]
	[- if ($month == 12) {
	 	$mmonth = 1;
		$myear = $year+1;
	} else {
		$mmonth = $month+1;
		$myear = $year;
	}
	$day1 = $day-2;
	$day2 = $day-1;
	$day3 = 1;
	$day4 = 2;
	$dow1=Day_of_Week($year,$month,$day1);
	$dow2=Day_of_Week($year,$month,$day2);
	$dow3=Day_of_Week($myear,$mmonth,$day3);
	$dow4=Day_of_Week($myear,$mmonth,$day4);
	$dow=Day_of_Week($year,$month,$day);
	-]
<center>
<a href="?mod=day&month=[+ $month +]&year=[+ $year +]&day=[+ $day1 +]">[+ $den{$dow1} +]</a>&nbsp;&nbsp;&nbsp;
<a href="?mod=day&month=[+ $month +]&year=[+ $year +]&day=[+ $day2 +]">[+ $den{$dow2} +]</a>&nbsp;&nbsp;&nbsp;
[+ $den{$dow} +]&nbsp;&nbsp;&nbsp;
<a href="?mod=day&month=[+ $mmonth +]&year=[+ $myear +]&day=[+ $day3 +]">[+ $den{$dow3} +]</a>&nbsp;&nbsp;&nbsp;
<a href="?mod=day&month=[+ $mmonth +]&year=[+ $myear +]&day=[+ $day4 +]">[+ $den{$dow4} +]</a>
</center></br>
	

[$ elsif ($day == $dom-1) $]
[-	if ($month == 12) {
		$mmonth = 1;
		$myear = $year+1;
	} else {
		$mmonth = $month+1;
		$myear = $year;
	}
	$day1 = $day-2;
	$day2 = $day-1;
	$day3 = $day+1;
	$day4 = 1;
	$dow1=Day_of_Week($year,$month,$day1);
	$dow2=Day_of_Week($year,$month,$day2);
	$dow3=Day_of_Week($year,$month,$day3);
	$dow4=Day_of_Week($myear,$mmonth,$day4);
	$dow=Day_of_Week($year,$month,$day);
-]
<center>
<a href="?mod=day&month=[+ $month +]&year=[+ $year +]&day=[+ $day1 +]">[+ $den{$dow1} +]</a>&nbsp;&nbsp;&nbsp;
<a href="?mod=day&month=[+ $month +]&year=[+ $year +]&day=[+ $day2 +]">[+ $den{$dow2} +]</a>&nbsp;&nbsp;&nbsp;
[+ $den{$dow} +]&nbsp;&nbsp;&nbsp;
<a href="?mod=day&month=[+ $month +]&year=[+ $year +]&day=[+ $day3 +]">[+ $den{$dow3} +]</a>&nbsp;&nbsp;&nbsp;
<a href="?mod=day&month=[+ $mmonth +]&year=[+ $myear +]&day=[+ $day4 +]">[+ $den{$dow4} +]</a>
</center></br>

[$ elsif ($day == 2) $]
[-	if ($month == 1){
		$mmonth = 12;
		$myear = $year-1;
	} else {
		$mmonth = $month - 1;
		$myear = $year;
		}
	$mdom = Days_in_Month($myear,$mmonth);
	$day1 = $mdom;
	$day2 = 1;
	$day3 = 3;
	$day4 = 4;
	$dow1=Day_of_Week($myear,$mmonth,$day1);
	$dow2=Day_of_Week($year,$month,$day2);
	$dow3=Day_of_Week($year,$month,$day3);
	$dow4=Day_of_Week($year,$month,$day4);
	$dow=Day_of_Week($year,$month,$day);
	-]
<center>
<a href="?mod=day&month=[+ $mmonth +]&year=[+ $myear +]&day=[+ $day1 +]">[+ $den{$dow1} +]</a>&nbsp;&nbsp;&nbsp;
<a href="?mod=day&month=[+ $month +]&year=[+ $year +]&day=[+ $day2 +]">[+ $den{$dow2} +]</a>&nbsp;&nbsp;&nbsp;
[+ $den{$dow} +]&nbsp;&nbsp;&nbsp;
<a href="?mod=day&month=[+ $month +]&year=[+ $year +]&day=[+ $day3 +]">[+ $den{$dow3} +]</a>&nbsp;&nbsp;&nbsp;
<a href="?mod=day&month=[+ $month +]&year=[+ $year +]&day=[+ $day4 +]">[+ $den{$dow4} +]</a>
</center></br>

[$ elsif ($day == 1) $]
[- 	if ($month == 1) {
		$mmonth = 12;
		$myear = $year-1;
	} else {
		$mmonth = $month - 1;
		$myear = $year;
		}
	$dom =  Days_in_Month($myear,$mmonth);
	$day1 = $dom-1;
	$day2 = $dom;
	$day3 = 2;
	$day4 = 3;
	$dow1=Day_of_Week($myear,$mmonth,$day1);
	$dow2=Day_of_Week($myear,$mmonth,$day2);
	$dow3=Day_of_Week($year,$month,$day3);
	$dow4=Day_of_Week($year,$month,$day4);
	$dow=Day_of_Week($year,$month,$day);
	-]
<center>
<a href="?mod=day&month=[+ $mmonth +]&year=[+ $myear +]&day=[+ $day1 +]">[+ $den{$dow1} +]</a>&nbsp;&nbsp;&nbsp;
<a href="?mod=day&month=[+ $mmonth +]&year=[+ $myear +]&day=[+ $day2 +]">[+ $den{$dow2} +]</a>&nbsp;&nbsp;&nbsp;
[+ $den{$dow} +]&nbsp;&nbsp;&nbsp;
<a href="?mod=day&month=[+ $month +]&year=[+ $year +]&day=[+ $day3 +]">[+ $den{$dow3} +]</a>&nbsp;&nbsp;&nbsp;
<a href="?mod=day&month=[+ $month +]&year=[+ $year +]&day=[+ $day4 +]">[+ $den{$dow4} +]</a>
</center></br>

[$ else $]
[-
	$day1 = $day-2;
	$day2 = $day-1;
	$day3 = $day+1;
	$day4 = $day+2;
	$dow1=Day_of_Week($year,$month,$day1);
	$dow2=Day_of_Week($year,$month,$day2);
	$dow3=Day_of_Week($year,$month,$day3);
	$dow4=Day_of_Week($year,$month,$day4);
	$dow=Day_of_Week($year,$month,$day);
-]

<center>
<a href="?mod=day&month=[+ $month +]&year=[+ $year +]&day=[+ $day1 +]">[+ $den{$dow1} +]</a>&nbsp;&nbsp;&nbsp;
<a href="?mod=day&month=[+ $month +]&year=[+ $year +]&day=[+ $day2 +]">[+ $den{$dow2} +]</a>&nbsp;&nbsp;&nbsp;
[+ $den{$dow} +]&nbsp;&nbsp;&nbsp;
<a href="?mod=day&month=[+ $month +]&year=[+ $year +]&day=[+ $day3 +]">[+ $den{$dow3} +]</a>&nbsp;&nbsp;&nbsp;
<a href="?mod=day&month=[+ $month +]&year=[+ $year +]&day=[+ $day4 +]">[+ $den{$dow4} +]</a>
</center></br>
[$ endif $]