show experiment info when dropping databases in menu

This commit is contained in:
2026-05-07 21:39:23 +02:00
parent 3ebc07bfc8
commit e0624a10f7
4 changed files with 20 additions and 3 deletions

View File

@ -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];
}