blob: c1ad955dd91bd1b9a4ad129e5e2039b88306020c (
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_news_list
# Generates a flat comma separated list of previous years news.
sub get_past_news_list {
my $str = '';
for ($year = $(CUR_YEAR) - 1; $year > 1998; $year--) {
$str .=" <a href=\"$year/\">$year</a>,\n"
if -d "$(ENGLISHDIR)/News/$year";
}
<bind-gettext-domain domain="vendors" />
$str .= " <a href=\"1998/\">1998</a> <gettext domain="vendors">and</gettext> <a href=\"1997/\">1997</a>\.</p>";
return $str;
}
</perl>
|