|
version 1.108, 2002/08/26 21:01:52
|
version 1.109, 2002/08/29 21:21:09
|
|
Line 450 sub html_to_tex {
|
Line 450 sub html_to_tex {
|
| |
|
| sub start_library { |
sub start_library { |
| my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
| my ($result,$head_tag_start,$body_tag_start,$form_tag_start)= |
my ($result,$head_tag_start,$body_tag_start,$form_tag_start); |
| &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval); |
|
| if ($target eq 'edit') { |
if ($target eq 'edit') { |
| |
($result,$head_tag_start,$body_tag_start,$form_tag_start)= |
| |
&page_start($target,$token,$tagstack,$parstack,$parser,$safeeval); |
| $result.=$head_tag_start."</head>".$body_tag_start.$form_tag_start. |
$result.=$head_tag_start."</head>".$body_tag_start.$form_tag_start. |
| &problem_edit_header(); |
&problem_edit_header(); |
| my $temp=&Apache::edit::insertlist($target,$token); |
my $temp=&Apache::edit::insertlist($target,$token); |
|
Line 461 sub start_library {
|
Line 463 sub start_library {
|
| $result=$token->[4]; |
$result=$token->[4]; |
| $result.=&Apache::edit::handle_insert(); |
$result.=&Apache::edit::handle_insert(); |
| } elsif ($target eq 'web' && $ENV{'request.state'} eq "construct" ) { |
} elsif ($target eq 'web' && $ENV{'request.state'} eq "construct" ) { |
| |
($result,$head_tag_start,$body_tag_start,$form_tag_start)= |
| |
&page_start($target,$token,$tagstack,$parstack,$parser,$safeeval); |
| my $name=&get_resource_name($parstack,$safeeval); |
my $name=&get_resource_name($parstack,$safeeval); |
| my $rndseed=&setup_rndseed($safeeval); |
my $rndseed=&setup_rndseed($safeeval); |
| $result.="$head_tag_start<title>$name</title></head> |
$result.="$head_tag_start<title>$name</title></head> |
![[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