version 1.403, 2006/04/11 14:07:33
|
version 1.408, 2006/04/18 20:50:45
|
Line 204 sub xmlend {
|
Line 204 sub xmlend {
|
$discussion.='<tex>\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\end{document}</tex>'; |
$discussion.='<tex>\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\end{document}</tex>'; |
&Apache::lonxml::newparser($parser,\$discussion,''); |
&Apache::lonxml::newparser($parser,\$discussion,''); |
return ''; |
return ''; |
} else { |
|
return $discussion.&Apache::loncommon::endbodytag(); |
|
} |
} |
|
|
|
return $discussion; |
} |
} |
|
|
sub tokeninputfield { |
sub tokeninputfield { |
Line 304 sub printtokenheader {
|
Line 304 sub printtokenheader {
|
} |
} |
} |
} |
|
|
sub fontsettings { |
|
my $headerstring=''; |
|
if (($env{'browser.os'} eq 'mac') && (!$env{'browser.mathml'})) { |
|
$headerstring.= |
|
'<meta Content-Type="text/html; charset=x-mac-roman" />'; |
|
} elsif (!$env{'browser.mathml'} && $env{'browser.unicode'}) { |
|
$headerstring.= |
|
'<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />'; |
|
} |
|
return $headerstring; |
|
} |
|
|
|
sub printalltags { |
sub printalltags { |
my $temp; |
my $temp; |
foreach $temp (sort keys %Apache::lonxml::alltags) { |
foreach $temp (sort keys %Apache::lonxml::alltags) { |
Line 1505 ENDNOTFOUND
|
Line 1493 ENDNOTFOUND
|
my %options = (); |
my %options = (); |
if ($env{'environment.remote'} ne 'off') { |
if ($env{'environment.remote'} ne 'off') { |
$options{'bgcolor'} = '#FFFFFF'; |
$options{'bgcolor'} = '#FFFFFF'; |
$options{'only_body'} = 1; |
|
} |
} |
my $start_page = &Apache::loncommon::start_page(undef,undef, |
my $start_page = &Apache::loncommon::start_page(undef,undef, |
\%options); |
\%options); |
Line 1580 sub error {
|
Line 1567 sub error {
|
#public or browsers |
#public or browsers |
$errormsg=&mt("An error occured while processing this resource. The author has been notified."); |
$errormsg=&mt("An error occured while processing this resource. The author has been notified."); |
} |
} |
my $msg = join('<br />',@_)." <p>this error occurred on machine ". |
my $msg = join('<br />',@_); |
$perlvar{'lonHostID'}."</p>"; |
|
#notify author |
#notify author |
&Apache::lonmsg::author_res_msg($env{'request.filename'},$msg); |
&Apache::lonmsg::author_res_msg($env{'request.filename'},$msg); |
#notify course |
#notify course |