blob: 16aa96f2f7088122a77489e8ff8005f729fbbe65 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#use wml::std::tags
<perl>
# get_past_partners_list
# Generates a flat comma separated list of previous years partners.
sub get_past_partners_list {
my $str = '';
for ($year = $(CUR_YEAR) - 1; $year > 2016; $year--) {
$str .=" <a href=\"$year/\">$year</a>,\n"
if -d "$(ENGLISHDIR)/News/$year";
}
<bind-gettext-domain domain="vendors" />
$str .= " <a href=\"2016/\">2016</a> <gettext domain="vendors">and</gettext> <a href=\"2015/\">2015</a>\.</p>";
return $str;
}
</perl>
|