--- loncom/interface/lonconfigsettings.pm 2013/09/10 01:23:45 1.21.4.3 +++ loncom/interface/lonconfigsettings.pm 2014/02/15 17:14:53 1.21.4.5 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # -# $Id: lonconfigsettings.pm,v 1.21.4.3 2013/09/10 01:23:45 raeburn Exp $ +# $Id: lonconfigsettings.pm,v 1.21.4.5 2014/02/15 17:14:53 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -181,7 +181,7 @@ sub make_changes { {href=>"javascript:changePage(document.$phase,'$phase')", text=>"Updated"}); &print_header($r,$phase,$context,undef,$container); - my ($crstype,$lastact); + my ($crstype,%lastact); if ($context eq 'course') { $crstype = &Apache::loncommon::course_type(); } @@ -192,7 +192,7 @@ sub make_changes { if ($context eq 'domain') { $r->print('

'.&mt($prefs->{$item}{'text'}).'

'. &Apache::domainprefs::process_changes($r,$dom, - $confname,$item,$roles,$values,\$lastact)); + $confname,$item,$roles,$values,\%lastact)); } else { $changes{$item} = {}; &Apache::courseprefs::process_changes($dom,$item,$values, @@ -237,7 +237,7 @@ sub make_changes { } &print_footer($r,$phase,'display',$footer_text,\@actions,$container); $r->print('

'); - return $lastact; + return \%lastact; } sub display_settings { @@ -258,16 +258,19 @@ sub display_settings { if (grep(/^\Q$item\E$/,@actions)) { push(@items,$item); if ($context eq 'domain') { + my $settings = $values->{$item}; if ($item eq 'usersessions') { $r->print(''."\n"); + } elsif ($item eq 'selfcreation') { + $settings = $values->{'usercreation'}; } ($output{$item},$rowtotal{$item}) = &Apache::domainprefs::print_config_box($r,$dom,$confname, - $phase,$item,$prefs->{$item},$values->{$item}); + $phase,$item,$prefs->{$item},$settings); } else { ($output{$item},$rowtotal{$item}) = &Apache::courseprefs::print_config_box($r,$dom,$phase,