my @branches = grep {$_ ne "" } $query->param('branch');
map { s/[^a-zA-Z0-9_ -]//g; } @branches;
my @stages = grep {$_ ne "" } $query->param('stage');
-map { s/[^a-zA-Z0-9_ -]//g; } @stages;
+map { s/[^a-zA-Z0-9_ :-]//g; } @stages;
my $dsn="dbi:Pg:dbname=$dbname";
$dsn .= ";host=$dbhost" if $dbhost;