show experiment info when dropping databases in menu
This commit is contained in:
@ -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];
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user