loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.344, 2006/04/14 21:09:54	version 1.345, 2006/04/14 21:42:05
Line 70 sub end_tex {	Line 70 sub end_tex {
}	}

sub page_start {	sub page_start {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$name)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$name,
	$extra_head)=@_;
my %found;	my %found;
foreach my $taginside (@$tagstack) {	foreach my $taginside (@$tagstack) {
foreach my $taglookedfor ('html','body','form') {	foreach my $taglookedfor ('html','body','form') {
Line 86 sub page_start {	Line 87 sub page_start {
}	}

my %body_args;	my %body_args;
my $extra_head;
if (defined($found{'html'})) {	if (defined($found{'html'})) {
$body_args{'skip_phases'}{'head'}=1;	$body_args{'skip_phases'}{'head'}=1;
} else {	} else {

$extra_head = &Apache::lonhtmlcommon::spellheader();	$extra_head .= &Apache::lonhtmlcommon::spellheader();

my $css_href = &Apache::lonnet::EXT('resource.0.cssfile');	my $css_href = &Apache::lonnet::EXT('resource.0.cssfile');
if ($css_href =~ /\S/) {	if ($css_href =~ /\S/) {