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"'; |