version 1.6, 2005/03/28 21:50:46
|
version 1.7, 2005/03/31 16:05:13
|
Line 173 sub start_ClosingParagraph {
|
Line 173 sub start_ClosingParagraph {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my $result; |
my $result; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$result='<table border="1"><tr><td>Closing</td></tr><tr><td>'; |
|
} |
} |
return $result; |
return $result; |
} |
} |
Line 182 sub end_ClosingParagraph {
|
Line 181 sub end_ClosingParagraph {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my $result; |
my $result; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$result='</td></tr></table>'; |
|
} |
} |
return $result; |
return $result; |
} |
} |
Line 205 sub end_Dimension {
|
Line 203 sub end_Dimension {
|
#then start repicking |
#then start repicking |
my $instance=$dimension{'instances'}->[0]; |
my $instance=$dimension{'instances'}->[0]; |
$result=$dimension{'intro'}. |
$result=$dimension{'intro'}. |
$dimension{$instance.'.text'}. |
$dimension{$instance.'.text'}; |
'<table border="1"><tr><td>Criteria</td></tr><tr><td>'; |
#FIXME: don't show the criteria yet |
foreach my $id (@{$dimension{$instance.'.criterias'}}) { |
#foreach my $id (@{$dimension{$instance.'.criterias'}}) { |
$result.=$dimension{$instance.'.criteria.'.$id}. |
# $result.=$dimension{$instance.'.criteria.'.$id}; |
'</td></tr><tr><td>'; |
#} |
} |
|
$result=~s/<tr><td>$//; |
|
$result.='</table>'; |
|
} |
} |
return $result; |
return $result; |
} |
} |
Line 223 sub start_IntroParagraph {
|
Line 218 sub start_IntroParagraph {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
if ($tagstack->[-2] eq 'Dimension') { |
if ($tagstack->[-2] eq 'Dimension') { |
&Apache::lonxml::startredirection(); |
&Apache::lonxml::startredirection(); |
} else { |
|
$result='<table border="1"><tr><td>Intro</td></tr><tr><td>'; |
|
} |
} |
} |
} |
return $result; |
return $result; |
Line 236 sub end_IntroParagraph {
|
Line 229 sub end_IntroParagraph {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
if ($tagstack->[-2] eq 'Dimension') { |
if ($tagstack->[-2] eq 'Dimension') { |
$dimension{'intro'}=&Apache::lonxml::endredirection(); |
$dimension{'intro'}=&Apache::lonxml::endredirection(); |
} else { |
|
$result='</td></tr></table>'; |
|
} |
} |
} |
} |
return $result; |
return $result; |