loncom/interface/courseprefs.pm - diff

Return to courseprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.28.2.10.2.2, 2012/02/17 17:00:29	version 1.28.2.11, 2012/02/01 19:54:35
Line 680 sub process_changes {	Line 680 sub process_changes {
}	}
}	}
} elsif (ref($item->{'ordered'}) eq 'ARRAY') {	} elsif (ref($item->{'ordered'}) eq 'ARRAY') {
if ($action eq 'courseinfo') {	@ordered = @{$item->{'ordered'}};
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 736 sub process_changes {	Line 722 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} = '*';