loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.224, 2014/02/12 20:37:42	version 1.225, 2014/02/12 21:19:36
Line 4961 sub insttypes_row {	Line 4961 sub insttypes_row {
if ($rownum ne '') {	if ($rownum ne '') {
$css_class = ($rownum%2? ' class="LC_odd_row"':'');	$css_class = ($rownum%2? ' class="LC_odd_row"':'');
}	}
print STDERR "rownum \|\|$rownum\|\| an css_class \|\|".$css_class."\|\|\n";
my $output = '<tr'.$css_class.'>'.	my $output = '<tr'.$css_class.'>'.
'<td>'.$lt{$context}.$showdom.	'<td>'.$lt{$context}.$showdom.
'</td><td class="'.$class.'" colspan="2"><table>';	'</td><td class="'.$class.'" colspan="2"><table>';
Line 7882 sub modify_selfcreation {	Line 7881 sub modify_selfcreation {
}	}
foreach my $field (keys(%{$cancreate{$item}})) {	foreach my $field (keys(%{$cancreate{$item}})) {
if (!$curr_usercreation{'cancreate'}{$item}{$field}) {	if (!$curr_usercreation{'cancreate'}{$item}{$field}) {
print STDERR "field $field in cancreate but not in curr\n";
if (!grep(/^$item$/,@{$changes{'cancreate'}})) {	if (!grep(/^$item$/,@{$changes{'cancreate'}})) {
push(@{$changes{'cancreate'}},$item);	push(@{$changes{'cancreate'}},$item);
}	}