Lines Matching refs:year
79 $result = "$result <year>$_</year>\n" foreach (@_);
432 foreach $year (@years) {
433 if ($year >= 2002) { next; }
434 if ($last_year != 0 && $year == $last_year + 1) {
435 if ($year > $anchor_year + 1) {
436 substr($years, $anchor_end) = "-$year";
438 $years .= ", $year";
441 $years .= $last_year == 0 ? "$year" : ", $year";
443 # print "$file: noncontiguous year: ",
444 # "$year != $last_year + 1\n";
446 $anchor_year = $year;
450 $last_year = $year;
463 foreach $year (@years) {
464 $andor = 1 if ($year >= 2007);
465 $noid = 1 if ($year > 2012 || ($year == 2012 && $this_month >= 5) );
466 if ($last_year != 0 && $year == $last_year + 1) {
467 if ($year > $anchor_year + 1) {
468 substr($years, $anchor_end) = "-$year";
470 $years .= ", $year";
473 $years .= $last_year == 0 ? "$year" : ", $year";
475 # print "$file: noncontiguous year: ",
476 # "$year != $last_year + 1\n";
478 $anchor_year = $year;
482 $last_year = $year;