loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.180, 2010/05/24 09:21:18	version 1.181, 2010/09/01 23:58:40
Line 571 sub process {	Line 571 sub process {
# 4: Render the current state to the screen as an HTML page.	# 4: Render the current state to the screen as an HTML page.
sub display {	sub display {
my $self = shift;	my $self = shift;
	my $footer = shift;
my $state = $self->{STATES}{$self->{STATE}};	my $state = $self->{STATES}{$self->{STATE}};

my $result = "";	my $result = "";
Line 606 sub display {	Line 606 sub display {
# FIXME: This should be parameterized, not concatenated - Jeremy	# FIXME: This should be parameterized, not concatenated - Jeremy


if (!$state->overrideForm()) { $result.='<form name="helpform" method="post">'; }	if (!$state->overrideForm()) { $result.='<form name="helpform" method="post" action="">'; }
if ($stateHelp) {	if ($stateHelp) {
$stateHelp = &Apache::loncommon::help_open_topic($stateHelp);	$stateHelp = &Apache::loncommon::help_open_topic($stateHelp);
}	}
Line 661 sub display {	Line 661 sub display {
</form>	</form>
FOOTER	FOOTER

$result .= &Apache::loncommon::end_page();	$result .= $footer.&Apache::loncommon::end_page();
# Handle writing out the vars to the file	# Handle writing out the vars to the file
my $file = Apache::File->new('>'.$self->{FILENAME});	my $file = Apache::File->new('>'.$self->{FILENAME});
print $file $self->_varsInFile();	print $file $self->_varsInFile();