loncom/interface/lonconfigsettings.pm - diff

Return to lonconfigsettings.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.7, 2009/10/29 14:57:18	version 1.8, 2009/11/23 21:45:18
Line 38 use Apache::lonlocal;	Line 38 use Apache::lonlocal;

sub print_header {	sub print_header {
my ($r,$phase,$context,$jscript) = @_;	my ($r,$phase,$context,$jscript) = @_;
my ($pagetitle,$brcrumtitle,$action);	my ($pagetitle,$brcrumtitle,$action,$call_category_check);
if ($context eq 'domain') {	if ($context eq 'domain') {
($pagetitle, $brcrumtitle) = ('View/Modify Domain Settings','Domain Settings');	($pagetitle, $brcrumtitle) = ('View/Modify Domain Settings','Domain Settings');
$action = '/adm/domainprefs';	$action = '/adm/domainprefs';
	if ($phase eq 'display') {
	my @actions = &Apache::loncommon::get_env_multiple('form.actions');
	if (grep(/^coursecategories$/,@actions)) {
	$call_category_check = qq\|
	if (formname == document.display) {
	if (!categoryCheck(formname)) {
	return;
	}
	}
	\|;
	}
	}
} else {	} else {
if (&Apache::loncommon::course_type() eq 'Community') {	if (&Apache::loncommon::course_type() eq 'Community') {
($pagetitle,$brcrumtitle) = ('Community Configuration','Community Configuration');	($pagetitle,$brcrumtitle) = ('Community Configuration','Community Configuration');
Line 77 function changePage(formname,newphase) {	Line 89 function changePage(formname,newphase) {
return;	return;
}	}
}	}
	'.$call_category_check.'
formname.submit();	formname.submit();
}'."\n";	}'."\n";
if ($phase eq 'pickactions') {	if ($phase eq 'pickactions') {