loncom/interface/lonconfigsettings.pm - diff

Return to lonconfigsettings.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.16, 2010/11/19 13:08:47	version 1.17, 2011/01/13 22:49:47
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();

sub print_header {	sub print_header {
my ($r,$phase,$context,$jscript) = @_;	my ($r,$phase,$context,$jscript) = @_;
Line 119 $jscript	Line 120 $jscript
}	}
$r->print(&Apache::loncommon::start_page($pagetitle,$js,$additem));	$r->print(&Apache::loncommon::start_page($pagetitle,$js,$additem));
$r->print(&Apache::lonhtmlcommon::breadcrumbs($brcrumtitle));	$r->print(&Apache::lonhtmlcommon::breadcrumbs($brcrumtitle));
	&Apache::lonparmset::startSettingsScreen($r,'coursepref');
$r->print('	$r->print('
<form name="parmform" action="">	<form name="parmform" action="">
<input type="hidden" name="pres_marker" />	<input type="hidden" name="pres_marker" />
Line 159 sub print_footer {	Line 161 sub print_footer {
$button_text.'" onclick='.$onclick.' /></p>');	$button_text.'" onclick='.$onclick.' /></p>');
}	}
if ($phase eq 'process') {	if ($phase eq 'process') {
$r->print('</form>'.&Apache::loncommon::end_page());	$r->print('</form>');
	&Apache::lonparmset::endSettingsScreen($r);
	$r->print(&Apache::loncommon::end_page());
}	}
return;	return;
}	}