From 67915b71dd6470758b9da86045307d1f17017539 Mon Sep 17 00:00:00 2001
From: Matthew Slowe <foo@mafoo.org.uk>
Date: Wed, 25 Oct 2023 11:16:15 +0100
Subject: [PATCH] support exclude column

---
 new.plot.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/new.plot.pl b/new.plot.pl
index cb03404..8b9c5d6 100755
--- a/new.plot.pl
+++ b/new.plot.pl
@@ -4,7 +4,7 @@ use DBI;
 
 my $db = DBI->connect("dbi:SQLite:dbname=rivers.db") or die $DBI::errstr;
 
-my $stations_st = $db->prepare("select id, name, watercourse from stations");
+my $stations_st = $db->prepare("select id, name, watercourse from stations where exclude<>'yes'");
 $stations_st->execute();
 my $stations = $stations_st->fetchall_hashref("id");