-[% IF title %][% title %] -- [% END %]Mail::Box Web Search
+ [% IF param.search %][% param.search %] [% date_limit %] - [% END %]Mail::Box Web Search
+
-[% MACRO search(fld,text,link_text) BLOCK; %]
-[% IF link_text ; link_text ; ELSE ; text ; END %]
-[% END %]
-
-[% MACRO option(var, value, text) BLOCK %]
-
-[% END %]
-
-[% MACRO from(message) BLOCK %]
-
- [% FOREACH f IN message.from %]
- [% search('from_phrase',f) %][% IF !loop.last %],[% END %]
- [% END %]
-
-[% END %]
-
-[% MACRO to(message) BLOCK %]
-[% IF message.to.size %]
-To:
- [% FOREACH f IN message.to %]
- [% search('to_phrase',f) %][% IF !loop.last %], [% END %]
- [% END %]
-
-[% END %]
-[% IF message.cc.size %]
-Cc:
- [% FOREACH f IN message.cc %]
- [% search('cc_phrase',f) %][% IF !loop.last %], [% END %]
- [% END %]
-
-[% END %]
-[% IF message.bcc.size %]
-Bcc:
- [% FOREACH f IN message.bcc %]
- [% IF loop.fist %]Bcc [% END %]
- [% search('bcc_phrase',f) %][% IF !loop.last %], [% END %]
- [% END %]
-
-[% END %]
-[% END %]
-
-[% MACRO date(msg) BLOCK %]
-[% msg.date %]
-[% END %]
-
-[% MACRO usage_list(list,key,description) BLOCK %]
-[% IF list %]
-
-[% description %]
-[% FOREACH l IN list %]
- [% l.name %][% l.usage %]
-[% END %]
-
-[% END %]
-[% END %]
-
-[% MACRO url_search BLOCK %]
-[% IF param.search ; "?search=" ; param.search ; END %]
-[% END %]
+[% PROCESS macros.tt2 %]
@@ -70,6 +13,7 @@
@@ -104,43 +50,22 @@
[% USE cal = Calendar.Simple(mm,yyyy) %]
-[% PERL %]
-$stash->set( get_cal => sub {
- my $cal = shift;
- my $yyyy = shift || return "BUG2";
- my $mm = shift || return "BUG3";
- my $day = shift || return " ";
-
- my $url = shift || "";
-
- return $day if (! $cal); # no calendar entries
-
- my $yyyymm = sprintf("%04d-%02d",$yyyy,$mm);
- my $dd = sprintf("%02d",$day);
-
- if ($cal->{$yyyymm}->{$dd}) {
- return "{$yyyymm}->{$dd}."\">$day";
- } else {
- return $day;
- }
-} );
-[% END %]
-