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(); |
} |
} |
} |
} |