[svn r6826] Sorted out most of the QM's not in Subsoil, with the help of Becka's amazingly useful diagram in the 2004 logbook (which I still have and haven't scanned muhahaha). The links back and forth from the description to the qm list all work now.

Decided I'd remove the QM list from CVS as well, since it's now autogenerated anyway.

Also consolidated Eeyore description - it was described once in the Swings page and once in the Underworld page(oops) and worse still some of the QM's were in one description and some in the other.

smkridge/204/tablize-qms.pl

@@ -74,14 +74,28 @@ my $incomplete="";
 my $complete="";
 my $templine;
 my $colon;
+my @stationbits;
 print "Progress: *";
 
+my $thisyear = -1;
+my $qmyear;
+
 # While loop which reads in each line of csv file
 while (<CSV>) {
 	chomp;
 	# Split single line into all the fields
 	($number, $grade, $area, $desc, $ref, $station, $completion) = &parse_csv($_);
-
+	if ($completion and $ref)
+	{
+		print "\n?? Backlink for completed $number\n";
+	}
+	$qmyear = substr($number, 1, 4);
+	if($qmyear != $thisyear)
+	{
+		$complete = "$complete\n<h3>$qmyear</h3>\n";
+		$incomplete = "$incomplete\n<h3>$qmyear</h3>\n";
+		$thisyear = $qmyear;
+	}	
 	# Last field of CSV file can have weird form-feeds etc. Kill them
 	$completion =~ s/\r//;
 
@@ -99,6 +113,11 @@ while (<CSV>) {
 		$colon = ": ";
 	}
 	
+	@stationbits = split(/\./, $station);
+	if ($#stationbits > 0)
+	{
+		$station = "$stationbits[-2].$stationbits[-1]";
+	}
 	if ($station) {
 		if ($area) {
 			$templine = "$templine$area, near $station$colon";