| 539 |
$yeaR = $year + 1; |
$yeaR = $year + 1; |
| 540 |
$page{next} = {year => $yeaR}; |
$page{next} = {year => $yeaR}; |
| 541 |
} |
} |
| 542 |
|
|
| 543 |
|
my @gmtime = gmtime; |
| 544 |
|
$page{today} = {year => $gmtime[5] + 1900, month => $gmtime[4] + 1, |
| 545 |
|
day => $gmtime[3]}; |
| 546 |
|
|
| 547 |
__ATTRTEXT:%mode__;__ATTRTEXT:%with_lm__;__ATTRTEXT:%up_to_date__; |
__ATTRTEXT:%mode__;__ATTRTEXT:%with_lm__;__ATTRTEXT:%up_to_date__; |
| 548 |
for my $rel (qw/prev next up prev-week next-week/) { |
for my $rel (qw/prev next up prev-week next-week today/) { |
| 549 |
next unless $page{$rel}; |
next unless $page{$rel}; |
| 550 |
$WIKILINKING->to_wikipage_in_html ({ |
$WIKILINKING->to_wikipage_in_html ({ |
| 551 |
label => qq(%html-link;\n), |
label => qq(%html-link;\n), |
| 659 |
%calender--year;-%calender--month;-%calender--day; (%page-name;) |
%calender--year;-%calender--month;-%calender--day; (%page-name;) |
| 660 |
@Calender:Link:next-week:ymd:Description: |
@Calender:Link:next-week:ymd:Description: |
| 661 |
%calender--year;-%calender--month;-%calender--day; (%page-name;) |
%calender--year;-%calender--month;-%calender--day; (%page-name;) |
| 662 |
|
@Calender:Link:today:ymd:Description: |
| 663 |
|
@@@: Today's WikiPage (%page-name;) |
| 664 |
|
@@lang: en |
| 665 |
@Calender:MonthList:Item: |
@Calender:MonthList:Item: |
| 666 |
%link-to-it ( |
%link-to-it ( |
| 667 |
label => {%calender--month;}p, |
label => {%calender--month;}p, |
Parent Directory
| 
Revision Log
| 
Patch