Help for this page

Select Code to Download


  1. or download this
    my %defaults = (GetAll => 1, Make => 1, MakeOnly => 1);
for (@tabs) {
  $_->{Suppress} = $defaults{$_->{Action}} if exists $defaults{$_->{Ac
+tion}};
}
  2. or download this
    $_->{Suppress} = $defaults{NewAction} if $->{Suppress} == $defaults{Ol
+dAction}