loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.95, 2005/01/21 22:59:54	version 1.97, 2005/02/17 23:19:44
Line 575 sub display {	Line 575 sub display {
}	}

# Phase 4: Display.	# Phase 4: Display.
	my $html=&Apache::lonxml::xmlbegin();
my $stateTitle=&mt($state->title());	my $stateTitle=&mt($state->title());
my $helperTitle = &mt($self->{TITLE});	my $helperTitle = &mt($self->{TITLE});
my $bodytag = &Apache::loncommon::bodytag($helperTitle,'','');	my $bodytag = &Apache::loncommon::bodytag($helperTitle,'','');
Line 584 sub display {	Line 585 sub display {
my $loncapaHelper = &mt("LON-CAPA Helper:");	my $loncapaHelper = &mt("LON-CAPA Helper:");

$result .= <<HEADER;	$result .= <<HEADER;
<html>	$html
<head>	<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<title>$loncapaHelper: $helperTitle</title>	<title>$loncapaHelper: $helperTitle</title>
</head>	</head>
$bodytag	$bodytag
Line 2870 sub render {	Line 2870 sub render {
my $result = '';	my $result = '';

if (defined $self->{ERROR_MSG}) {	if (defined $self->{ERROR_MSG}) {
$result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />';	$result .= '<p><font color="#FF0000">' . $self->{ERROR_MSG} . '</font></p>';
}	}

$result .= '<input type="string" name="' . $self->{'variable'} . '.forminput"';	$result .= '<input type="string" name="' . $self->{'variable'} . '.forminput"';