|
version 1.82, 2002/02/20 22:17:18
|
version 1.85, 2002/03/20 22:13:19
|
|
Line 79 sub page_start {
|
Line 79 sub page_start {
|
| if (!defined($found{'html'})) { |
if (!defined($found{'html'})) { |
| $result=&Apache::londefdef::start_html($target,$token,$tagstack,$parstack, |
$result=&Apache::londefdef::start_html($target,$token,$tagstack,$parstack, |
| $parser,$safeeval); |
$parser,$safeeval); |
| $head_tag_start='<head>'.&Apache::lonxml::registerurl(); |
$head_tag_start='<head>'.&Apache::lonxml::registerurl(undef,$target); |
| } |
} |
| my $body_tag_start; |
my $body_tag_start; |
| if (!defined($found{'body'})) { |
if (!defined($found{'body'})) { |
|
Line 297 sub start_problem {
|
Line 297 sub start_problem {
|
| $result=$token->[4]; |
$result=$token->[4]; |
| $result.=&Apache::edit::handle_insert(); |
$result.=&Apache::edit::handle_insert(); |
| } elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
| $result .= '\begin{document}\noindent\textbf{Problem.}\newline'; |
$result .= '\begin{document} '; |
| } else { |
} else { |
| # page_start returned a starting result, delete it if we don't need it |
# page_start returned a starting result, delete it if we don't need it |
| $result = ''; |
$result = ''; |
|
Line 310 sub end_problem {
|
Line 310 sub end_problem {
|
| my $result=''; |
my $result=''; |
| my $status=$Apache::inputtags::status['-1']; |
my $status=$Apache::inputtags::status['-1']; |
| if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ) { |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ) { |
| if ( $target eq 'grade' && $Apache::inputtags::part eq '0' && |
if ( $target eq 'grade' && $Apache::inputtags::part eq '0') { |
| $status eq 'CAN_ANSWER') { |
|
| # if part is zero, no <part>s existed, so we need to the grading |
# if part is zero, no <part>s existed, so we need to the grading |
| &Apache::inputtags::grade; |
&Apache::inputtags::grade; |
| } elsif ( $target eq 'web' && $Apache::inputtags::part eq '0') { |
} elsif ( $target eq 'web' && $Apache::inputtags::part eq '0') { |
|
Line 342 sub end_problem {
|
Line 341 sub end_problem {
|
| &Apache::lonxml::debug("in end_problem with $target, edit"); |
&Apache::lonxml::debug("in end_problem with $target, edit"); |
| $result='<br /><input type="submit" name="submit" value="Submit Changes" />'; |
$result='<br /><input type="submit" name="submit" value="Submit Changes" />'; |
| } elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
| $result .= '\end{document}'; |
$result .= '\noindent\makebox[9.0cm][b]{\hrulefill}\end{document}'; |
| } |
} |
| return $result; |
return $result; |
| } |
} |
|
Line 618 sub end_startouttext {
|
Line 617 sub end_startouttext {
|
| $text=&Apache::lonxml::get_all_text("endouttext",$$parser['-1']); |
$text=&Apache::lonxml::get_all_text("endouttext",$$parser['-1']); |
| $result='<startouttext />'.&Apache::edit::modifiedfield(); |
$result='<startouttext />'.&Apache::edit::modifiedfield(); |
| } |
} |
| |
if ($target eq 'tex') { |
| |
$result .= '\noindent '; |
| |
} |
| return $result; |
return $result; |
| } |
} |
| sub start_endouttext { |
sub start_endouttext { |
![[BACK]](/icons/back.gif){kind=icon}
Return to structuretags.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework