This commit is contained in:
qgarnier 2017-12-13 20:10:09 +01:00
parent 9fa71c2f66
commit 82d7f78673

View File

@ -201,8 +201,8 @@ sub manage_selection {
my $result = $options{custom}->get_attributes(request => $self->{request}, nothing_quit => 1); my $result = $options{custom}->get_attributes(request => $self->{request}, nothing_quit => 1);
$self->{mem} = {}; $self->{mem} = {};
foreach my $key (keys %$result) { foreach my $key (keys %$result) {
$key =~ /name=(.*?),type/; $key =~ /(?:[:,])name=(.*?)(?:,|$)/;
my $memtype = $1; my $memtype = $1;
if (!defined($mapping_memory{$memtype})) { if (!defined($mapping_memory{$memtype})) {