loncom/interface/courseprefs.pm - diff

Return to courseprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

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});