Add warning when running queries if the variant name doesn't match

scripts/menu.pl

@@ -129,6 +129,19 @@ my %handlers = (
 
         # Run queries on databases
         foreach my $db (@selected_dbs) {
+            my $experiment = $db =~ s/smchurla_//r;
+
+            my $variant_name = Mars::db_variant_name($db);
+            if ( !defined $variant_name ) {
+                say "Skipping $db: contains multiple variants";
+                next;
+            }
+            if ( $variant_name ne $experiment ) {
+                say
+"Skipping $db: the variant is '$variant_name' but the queries use '$experiment'.";
+                next;
+            }
+
             foreach my $query (@selected_queries) {
                 Util::rewrite_file( $local_db_conf, "database=",
                     "database=$db\n" );
@@ -138,7 +151,7 @@ my %handlers = (
                   ? " (" . join( "+", @filter_configs ) . ")"
                   : "";
                 say "Running $query$config_label on $db...";
-                Util::execute_query( $db =~ s/smchurla_//r,
+                Util::execute_query( $experiment,
                     $query, $local_db_conf, $local_archive_dir, 0,
                     @filter_configs );
             }