loncom/homework/bridgetask.pm - diff

Return to bridgetask.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.127, 2006/03/29 04:53:42	version 1.128, 2006/03/29 13:24:43
Line 1874 sub start_IntroParagraph {	Line 1874 sub start_IntroParagraph {
if ($tagstack->[-2] eq 'Dimension') {	if ($tagstack->[-2] eq 'Dimension') {
$dimension{'intro'}=&Apache::lonxml::get_all_text('/introparagraph',$parser,$style);	$dimension{'intro'}=&Apache::lonxml::get_all_text('/introparagraph',$parser,$style);

} elsif ($target eq 'webgrade') {	} elsif ($tagstack->[-2] eq 'Task' && $target eq 'webgrade') {
&Apache::lonxml::startredirection();	&Apache::lonxml::startredirection();
	} else {
	&Apache:;lonxml::error("Invalid use of <IntroParagraph> inside of <".$tagstack->[-2].">");
	&Apache::lonxml::get_all_text('/introparagraph',$parser,$style);
}	}

}	}
Line 1884 sub start_IntroParagraph {	Line 1887 sub start_IntroParagraph {

sub end_IntroParagraph {	sub end_IntroParagraph {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
if ($target eq 'webgrade') {	if ($tagstack->[-2] eq 'Task' && $target eq 'webgrade') {
my $result = &Apache::lonxml::endredirection();	my $result = &Apache::lonxml::endredirection();
}	}
}	}