support exclude column
This commit is contained in:
@ -4,7 +4,7 @@ use DBI;
|
|||||||
|
|
||||||
my $db = DBI->connect("dbi:SQLite:dbname=rivers.db") or die $DBI::errstr;
|
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();
|
$stations_st->execute();
|
||||||
my $stations = $stations_st->fetchall_hashref("id");
|
my $stations = $stations_st->fetchall_hashref("id");
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user