loncom/interface/lonconfigsettings.pm - diff

Return to lonconfigsettings.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.21, 2011/12/08 22:10:18	version 1.21.4.1, 2012/05/02 20:32:37
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,$container) = @_;	my ($r,$phase,$context,$jscript,$container) = @_;
Line 127 $jscript	Line 126 $jscript
<input type="hidden" name="pres_value" />	<input type="hidden" name="pres_value" />
</form>	</form>
');	');
if ($container) {
&Apache::lonparmset::startSettingsScreen($r,$container);
}
$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 164 sub print_footer {	Line 160 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;