loncom/interface/lonconfigsettings.pm - diff

Return to lonconfigsettings.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.14, 2010/05/22 01:29:27	version 1.16, 2010/11/19 13:08:47
Line 141 sub print_footer {	Line 141 sub print_footer {
if (($phase eq 'display') \|\| ($phase eq 'process')) {	if (($phase eq 'display') \|\| ($phase eq 'process')) {
if (ref($actions) eq 'ARRAY') {	if (ref($actions) eq 'ARRAY') {
foreach my $item (@{$actions}) {	foreach my $item (@{$actions}) {
$r->print('<input type="hidden" name="actions" value="'.$item.'" />')."\n";	$r->print('<input type="hidden" name="actions" value="'.$item.'" />'."\n");
}	}
}	}
}	}
Line 251 sub display_settings {	Line 251 sub display_settings {
if (grep(/^\Q$item\E$/,@actions)) {	if (grep(/^\Q$item\E$/,@actions)) {
push(@items,$item);	push(@items,$item);
if ($context eq 'domain') {	if ($context eq 'domain') {
	if ($item eq 'usersessions') {
	$r->print('<script type="text/javascript">'."\n".
	'// <![CDATA['."\n".
	&Apache::loncommon::check_uncheck_jscript()."\n".
	'// ]]>'."\n".
	'</script>'."\n");
	}
($output{$item},$rowtotal{$item}) =	($output{$item},$rowtotal{$item}) =
&Apache::domainprefs::print_config_box($r,$dom,$confname,	&Apache::domainprefs::print_config_box($r,$dom,$confname,
$phase,$item,$prefs->{$item},$values->{$item});	$phase,$item,$prefs->{$item},$values->{$item});