version 1.224, 2014/02/12 20:37:42
|
version 1.227, 2014/02/28 19:20:05
|
Line 275 sub handler {
|
Line 275 sub handler {
|
{col1 => 'Setting', |
{col1 => 'Setting', |
col2 => 'Affiliation'}, |
col2 => 'Affiliation'}, |
{col1 => 'User population', |
{col1 => 'User population', |
col2 => 'Updateable user data'}], |
col2 => 'Updatable user data'}], |
}, |
}, |
'autocreate' => |
'autocreate' => |
{ text => 'Auto-course creation settings', |
{ text => 'Auto-course creation settings', |
Line 319 sub handler {
|
Line 319 sub handler {
|
{ text => 'User modification', |
{ text => 'User modification', |
help => 'Domain_Configuration_User_Modification', |
help => 'Domain_Configuration_User_Modification', |
header => [{col1 => 'Target user has role', |
header => [{col1 => 'Target user has role', |
col2 => 'User information updateable in author context'}, |
col2 => 'User information updatable in author context'}, |
{col1 => 'Target user has role', |
{col1 => 'Target user has role', |
col2 => 'User information updateable in course context'}], |
col2 => 'User information updatable in course context'}], |
}, |
}, |
'scantron' => |
'scantron' => |
{ text => 'Bubblesheet format file', |
{ text => 'Bubblesheet format file', |
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); |
} |
} |
Line 8235 sub modify_usermodification {
|
Line 8233 sub modify_usermodification {
|
} |
} |
} |
} |
} |
} |
# FIXME need to ensure selfcreate stuff is preserved |
|
my %usermodification_hash = ( |
my %usermodification_hash = ( |
usermodification => \%modifyhash, |
usermodification => \%modifyhash, |
); |
); |