version 1.260.2.5, 2004/09/22 20:49:45
|
version 1.265, 2004/08/25 19:16:25
|
Line 61 sub start_tex {
|
Line 61 sub start_tex {
|
if ($target eq 'tex') { |
if ($target eq 'tex') { |
return $bodytext.' '; |
return $bodytext.' '; |
} |
} |
return $result; |
return $result;; |
} |
} |
|
|
sub end_tex { |
sub end_tex { |
Line 83 sub page_start {
|
Line 83 sub page_start {
|
$result=&Apache::londefdef::start_html($target,$token,$tagstack, |
$result=&Apache::londefdef::start_html($target,$token,$tagstack, |
$parstack,$parser,$safeeval); |
$parstack,$parser,$safeeval); |
$head_tag_start='<head>'.&Apache::lonmenu::registerurl(undef,$target). |
$head_tag_start='<head>'.&Apache::lonmenu::registerurl(undef,$target). |
&Apache::lonhtmlcommon::htmlareaheaders(); |
&Apache::lonhtmlcommon::htmlareaheaders(). |
|
&Apache::lonhtmlcommon::spellheader(); |
} |
} |
my $body_tag_start; |
my $body_tag_start; |
if (!defined($found{'body'})) { |
if (!defined($found{'body'})) { |
Line 353 sub init_problem_globals {
|
Line 354 sub init_problem_globals {
|
if ($type eq 'problem') { |
if ($type eq 'problem') { |
$Apache::inputtags::part='0'; |
$Apache::inputtags::part='0'; |
@Apache::inputtags::partlist=('0'); |
@Apache::inputtags::partlist=('0'); |
$Apache::lonhomework::problemstatus=&get_problem_status('0'); |
|
$Apache::lonhomework::ignore_response_errors=0; |
$Apache::lonhomework::problemstatus=&get_problem_status('0') |
} elsif ($type eq 'library') { |
} else { |
$Apache::inputtags::part=''; |
$Apache::inputtags::part=''; |
@Apache::inputtags::partlist=(); |
@Apache::inputtags::partlist=(); |
$Apache::lonhomework::problemstatus=''; |
$Apache::lonhomework::problemstatus=''; |
$Apache::lonhomework::ignore_response_errors=1; |
|
} |
} |
@Apache::inputtags::responselist = (); |
@Apache::inputtags::responselist = (); |
@Apache::inputtags::importlist = (); |
@Apache::inputtags::importlist = (); |
Line 646 sub end_problem {
|
Line 646 sub end_problem {
|
$endminipage = '\end{minipage}'; |
$endminipage = '\end{minipage}'; |
} |
} |
if ($ENV{'form.print_discussions'} eq 'yes') { |
if ($ENV{'form.print_discussions'} eq 'yes') { |
$result.=&Apache::lonxml::xmlend(); |
$result.=&Apache::lonxml::xmlend($target,$parser); |
$result=~s/<\/html>//; |
$result=~s/<\/html>//; |
} |
|
$result .= '\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}'; |
|
if (not $ENV{'request.symb'} =~ m/\.page_/) { |
|
$result .= $endminipage.'\end{document} '; |
|
} else { |
} else { |
$result .= ''; |
$result .= '\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}'; |
|
if (not $ENV{'request.symb'} =~ m/\.page_/) { |
|
$result .= $endminipage.'\end{document} '; |
|
} else { |
|
$result .= ''; |
|
} |
} |
} |
} |
} |
} |
} |
Line 861 sub start_instructorcomment {
|
Line 862 sub start_instructorcomment {
|
if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || |
if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || |
$target eq 'tex' || $target eq 'analyze') { |
$target eq 'tex' || $target eq 'analyze') { |
$result=($ENV{'request.role'}=~/^(in|cc|au|ca|li)/); |
$result=($ENV{'request.role'}=~/^(in|cc|au|ca|li)/); |
if ( (! $result) or ($ENV{'form.instructor_comments'} eq 'hide')) { |
if ( ! $result ) { |
my $skip=&Apache::lonxml::get_all_text("/instructorcomment", |
my $skip=&Apache::lonxml::get_all_text("/instructorcomment", |
$parser,$style); |
$parser,$style); |
&Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]"); |
&Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]"); |