#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>