version 1.7, 2009/09/04 21:42:38
|
version 1.8, 2009/10/13 04:48:03
|
Line 554 sub process_changes {
|
Line 554 sub process_changes {
|
if ($newvalues{$ext_entry} ne $values->{$stdrole.'.plaintext'}) { |
if ($newvalues{$ext_entry} ne $values->{$stdrole.'.plaintext'}) { |
my $dupname = 0; |
my $dupname = 0; |
if ($newvalues{$ext_entry} ne '') { |
if ($newvalues{$ext_entry} ne '') { |
my $dupname = 0; |
|
if (grep(/^\Q$newvalues{$ext_entry}\E$/,@replacements)) { |
if (grep(/^\Q$newvalues{$ext_entry}\E$/,@replacements)) { |
$dupname = 1; |
$dupname = 1; |
push(@{$disallowed->{'rolenames'}{'replacements'}},$newvalues{$ext_entry}); |
push(@{$disallowed->{'rolenames'}{'replacements'}},$newvalues{$ext_entry}); |