show experiment info when dropping databases in menu

scripts/Util.pm

@@ -260,7 +260,8 @@ sub select_experiment {
       TUI::select_from_list( "Select Experiment", $multi, @exp_with_notes );
     die "No experiment selected" unless @selected_experiments;
 
-    map { s/(.*?)\s+\(.+\)$/$1/ } @selected_experiments;
+    @selected_experiments =
+      map { s/(.*?)\s+\(.+\)$/$1/r } @selected_experiments;
 
     return $multi == 1 ? @selected_experiments : $selected_experiments[0];
 }

scripts/menu.pl

@@ -109,6 +109,7 @@ my %handlers = (
 
         my @existing = Util::find_files($local_ghidra_projects);
 
+        # Determine if an experiment was already imported
         my $is_old = sub {
             my ($name) = @_;
             $name =~ s/:/-/g;
@@ -504,11 +505,26 @@ my %handlers = (
     '99. Drop Databases (Mars)' => sub {
 
         # Drop databases on mars
-        my @db_names = Mars::db_list();
+        my @dbs = Mars::db_list();
+        my @dbs_with_notes;
+        foreach my $db (@dbs) {
+            my $info =
+              Util::read_experiment_info( $db =~ s/smchurla_//r =~ s/:/-/gr );
+
+            push @dbs_with_notes,
+              ( defined $info && length($info) > 0 )
+              ? sprintf( "%-60s (%s)", $db, $info )
+              : $db;
+        }
+
         my @selected_dbs =
           TUI::select_from_list( "Select Databases to Drop from Mars",
-            1, @db_names );
+            1, @dbs_with_notes );
         die "No database selected" unless @selected_dbs;
+
+        @selected_dbs =
+          map { s/(.*?)\s+\(.+\)$/$1/r } @selected_dbs;
+
         Mars::db_drop($_) for @selected_dbs;
     },
 );