Fix for restrict_allow which was being clobbered by default values.

interchange · May 5, 2016 · 8ba9a07 · 8ba9a07
1 parent 68d3439
commit 8ba9a07
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lib/Vend/Table/Editor.pm b/lib/Vend/Table/Editor.pm
@@ -916,7 +916,11 @@ sub display {
 			last METAMAKE;
 		}
 
-		$opt->{restrict_allow} ||= $record->{restrict_allow};
+		if ($record->{restrict_allow}) {
+			my %restrict_allow;
+			@restrict_allow{grep /\S/, split / /, $opt->{restrict_allow} . ' ' . $record->{restrict_allow}} = ();
+			$opt->{restrict_allow} = join ' ', sort keys %restrict_allow;
+		} 
 #::logDebug("formatting prepend/append/lookup_query name=$opt->{name} restrict_allow=$opt->{restrict_allow}");
 		for(qw/append prepend lookup_query/) {
 			next unless $record->{$_};