loncom/interface/courseprefs.pm - diff

Return to courseprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.48, 2011/12/14 23:55:50	version 1.49, 2012/02/15 21:36:30
Line 665 sub process_changes {	Line 665 sub process_changes {
}	}
}	}
} elsif (ref($item->{'ordered'}) eq 'ARRAY') {	} elsif (ref($item->{'ordered'}) eq 'ARRAY') {
@ordered = @{$item->{'ordered'}};	if ($action eq 'courseinfo') {
	my ($can_toggle_cat,$can_categorize) =
	&can_modify_catsettings($cdom,$crstype);
	foreach my $entry (@{$item->{'ordered'}}) {
	next if (($entry eq 'hidefromcat') &&
	(!$can_toggle_cat));
	next if (($entry eq 'categories') &&
	(!$can_categorize));
	next if (($entry eq 'loncaparev') \|\|
	($entry eq 'owner'));
	push(@ordered,$entry);
	}
	} else {
	@ordered = @{$item->{'ordered'}};
	}
}	}
if (@ordered > 0) {	if (@ordered > 0) {
if ($action eq 'feedback') {	if ($action eq 'feedback') {
Line 707 sub process_changes {	Line 721 sub process_changes {
}	}
} else {	} else {
foreach my $entry (@ordered) {	foreach my $entry (@ordered) {
next if (($entry eq 'loncaparev') \|\| ($entry eq 'owner'));
if ($entry eq 'cloners') {	if ($entry eq 'cloners') {
if ($env{'form.cloners_all'}) {	if ($env{'form.cloners_all'}) {
$newvalues{$entry} = '*';	$newvalues{$entry} = '*';