loncom/interface/lonconfigsettings.pm - diff

Return to lonconfigsettings.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonconfigsettings.pm between versions 1.21.4.13.2.12 and 1.74

version 1.21.4.13.2.12, 2024/08/22 20:18:08	version 1.74, 2025/03/15 01:03:33
Line 35 use Apache::lonnet;	Line 35 use Apache::lonnet;
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::lonparmset();
use Apache::courseclassifier();	use Apache::courseclassifier();
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
use File::Copy;	use File::Copy;
Line 268 $jscript	Line 269 $jscript
if (grep(/^ltitools$/,@actions)) {	if (grep(/^ltitools$/,@actions)) {
$onload .= "toggleLTITools(document.display,'passback','add');".	$onload .= "toggleLTITools(document.display,'passback','add');".
"toggleLTITools(document.display,'roster','add');".	"toggleLTITools(document.display,'roster','add');".
	"toggleLTITools(document.display,'returnurl','add');".
"toggleLTITools(document.display,'user','add');";	"toggleLTITools(document.display,'user','add');";
if (ref($values) eq 'HASH') {	if (ref($values) eq 'HASH') {
if (ref($values->{'ltitools'}) eq 'HASH') {	if (ref($values->{'ltitools'}) eq 'HASH') {
Line 275 $jscript	Line 277 $jscript
for (my $i=0; $i<$numltitools; $i++) {	for (my $i=0; $i<$numltitools; $i++) {
$onload .= "toggleLTITools(document.display,'passback','$i');".	$onload .= "toggleLTITools(document.display,'passback','$i');".
"toggleLTITools(document.display,'roster','$i');".	"toggleLTITools(document.display,'roster','$i');".
	"toggleLTITools(document.display,'returnurl','$i');".
"toggleLTITools(document.display,'user','$i');";	"toggleLTITools(document.display,'user','$i');";
}	}
}	}
Line 288 $jscript	Line 291 $jscript
if (grep(/^wafproxy$/,@actions)) {	if (grep(/^wafproxy$/,@actions)) {
$onload .= "toggleWAF();checkWAF();updateWAF();";	$onload .= "toggleWAF();checkWAF();updateWAF();";
}	}
	if (grep(/^proctoring$/,@actions)) {
	$onload .= "toggleProctoring(document.display,'proctorio');".
	"toggleProctoring(document.display,'examity');";
	}
if (grep(/^scantron$/,@actions)) {	if (grep(/^scantron$/,@actions)) {
$onload .= "toggleScantron(document.display);";	$onload .= "toggleScantron(document.display);";
}	}
Line 405 $jscript	Line 412 $jscript
<input type="hidden" name="pres_value" />	<input type="hidden" name="pres_value" />
</form>	</form>
');	');
	if ($container) {
	&Apache::lonparmset::startSettingsScreen($r,$container,$crstype);
	}
$r->print('<form method="post" name="'.$phase.'" action="'.$action.'"'.	$r->print('<form method="post" name="'.$phase.'" action="'.$action.'"'.
' enctype="multipart/form-data">');	' enctype="multipart/form-data">');
return;	return;
Line 569 sub print_footer {	Line 579 sub print_footer {
}	}
if ($phase eq 'process') {	if ($phase eq 'process') {
$r->print('</form>');	$r->print('</form>');
	if ($container) {
	&Apache::lonparmset::endSettingsScreen($r);
	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
}	}
return;	return;
Line 676 sub display_settings {	Line 689 sub display_settings {
if (ref($values) eq 'HASH') {	if (ref($values) eq 'HASH') {
$settings = $values->{$item};	$settings = $values->{$item};
}	}
if ($item eq 'usersessions') {	if (($item eq 'usersessions') \|\| ($item eq 'ssl')) {
$r->print('<script type="text/javascript">'."\n".	unless ($got_check_uncheck) {
'// <![CDATA['."\n".	$r->print('<script type="text/javascript">'."\n".
&Apache::loncommon::check_uncheck_jscript()."\n".	'// <![CDATA['."\n".
'// ]]>'."\n".	&Apache::loncommon::check_uncheck_jscript()."\n".
'</script>'."\n");	'// ]]>'."\n".
	'</script>'."\n");
	$got_check_uncheck = 1;
	}
} elsif ($item eq 'selfcreation') {	} elsif ($item eq 'selfcreation') {
if (ref($values) eq 'HASH') {	if (ref($values) eq 'HASH') {
$settings = $values->{'usercreation'};	$settings = $values->{'usercreation'};
Line 767 sub display_settings {	Line 783 sub display_settings {
}	}
$r->print('</form>');	$r->print('</form>');
}	}
	if ($container) {
	&Apache::lonparmset::endSettingsScreen($r);
	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return;	return;
}	}
Line 829 sub display_choices {	Line 848 sub display_choices {
$r->print('</div><div style="padding:0;clear:both;margin:0;border:0"></div>');	$r->print('</div><div style="padding:0;clear:both;margin:0;border:0"></div>');
$r->print(&print_footer($r,$phase,'display','Display',undef,$container,$parm_permission));	$r->print(&print_footer($r,$phase,'display','Display',undef,$container,$parm_permission));
$r->print('</form>');	$r->print('</form>');
	if ($container) {
	&Apache::lonparmset::endSettingsScreen($r);
	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return;	return;
}	}
Line 1098 sub ltitools_toggle_js {	Line 1120 sub ltitools_toggle_js {
function toggleLTITools(form,setting,item) {	function toggleLTITools(form,setting,item) {
var radioname = '';	var radioname = '';
var divid = '';	var divid = '';
if ((setting == 'passback') \|\| (setting == 'roster')) {	if ((setting == 'passback') \|\| (setting == 'roster') \|\| (setting == 'returnurl')) {
radioname = 'ltitools_'+setting+'_'+item;	radioname = 'ltitools_'+setting+'_'+item;
divid = 'ltitools_'+setting+'time_'+item;	if (setting == 'returnurl') {
	divid = 'ltitools_course'+setting+'_'+item;
	} else {
	divid = 'ltitools_'+setting+'time_'+item;
	}
var num = form.elements[radioname].length;	var num = form.elements[radioname].length;
if (num) {	if (num) {
var setvis = '';	var setvis = '';

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.21.4.13.2.12
changed lines
	Added in v.1.74