open (LINKS, "$linksQuery") || die ("Can't open $linksQuery: $!");
my @links = <LINKS>;
close (LINKS);

##</code><code>##

for (@links) {
	chomp($_);
	my ($status, $reference, $project, $created) = split(/\t/, $_);
	if ($status eq "Completed") {
		push(@complete, $_);
	} else {
		push(@progress, $_);
	}
}