|
version 1.310, 2005/11/03 12:14:31
|
version 1.311, 2005/11/03 12:20:54
|
|
Line 499 sub get_problem_status {
|
Line 499 sub get_problem_status {
|
| sub start_problem { |
sub start_problem { |
| my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
| |
|
| |
# We'll use the redirection to fix up printing of duedates. |
| |
|
| |
&Apache::lonxml::startredirection; |
| |
|
| # Problems don't nest and we don't allow more than one <problem> in |
# Problems don't nest and we don't allow more than one <problem> in |
| # a .problem file. |
# a .problem file. |
| # |
# |
|
Line 735 sub start_problem {
|
Line 739 sub start_problem {
|
| |
|
| sub end_problem { |
sub end_problem { |
| my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
| my $result=''; |
my $result= &Apache::lonxml::endredirection; # This captures the entire <problem>.... body. |
| |
|
| my $status=$Apache::inputtags::status['-1']; |
my $status=$Apache::inputtags::status['-1']; |
| if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
|
Line 1176 sub ordered_show_check {
|
Line 1180 sub ordered_show_check {
|
| |
|
| sub start_part { |
sub start_part { |
| my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
| |
&Apache::lonxml::startredirection; # we'll use redirection to fix up duedates. |
| my $result=''; |
my $result=''; |
| my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); |
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); |
| if ($id =~ /^\s*$/) { $id = $Apache::lonxml::curdepth; } |
if ($id =~ /^\s*$/) { $id = $Apache::lonxml::curdepth; } |
|
Line 1284 sub end_part {
|
Line 1289 sub end_part {
|
| my $status=$Apache::inputtags::status['-1']; |
my $status=$Apache::inputtags::status['-1']; |
| my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part); |
my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part); |
| my $in_order_show=&ordered_show_check(); |
my $in_order_show=&ordered_show_check(); |
| my $result=''; |
my $result= &Apache::lonxml::endredirection; # $resutl has entire <part> body. |
| if ( $target eq 'meta' ) { |
if ( $target eq 'meta' ) { |
| $result=''; |
$result.=''; |
| } elsif ($target eq 'grade') { |
} elsif ($target eq 'grade') { |
| if (($status eq 'CAN_ANSWER' || $Apache::lonhomework::scantronmode) && |
if (($status eq 'CAN_ANSWER' || $Apache::lonhomework::scantronmode) && |
| !$hidden && $in_order_show) { |
!$hidden && $in_order_show) { |
| $result=&Apache::inputtags::grade; |
$result.=&Apache::inputtags::grade; |
| } else { |
} else { |
| # move any submission data to .hidden |
# move any submission data to .hidden |
| &Apache::inputtags::hidealldata($Apache::inputtags::part); |
&Apache::inputtags::hidealldata($Apache::inputtags::part); |
|
Line 1302 sub end_part {
|
Line 1307 sub end_part {
|
| if ($Apache::lonhomework::type eq 'exam' && $target eq 'tex') { |
if ($Apache::lonhomework::type eq 'exam' && $target eq 'tex') { |
| $gradestatus=''; |
$gradestatus=''; |
| } |
} |
| $result=$gradestatus; |
$result.=$gradestatus; |
| if ($$tagstack[-2] eq 'td' and $target eq 'tex') {$result.='\end{minipage}';} |
if ($$tagstack[-2] eq 'td' and $target eq 'tex') {$result.='\end{minipage}';} |
| } elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
| $result=&Apache::edit::end_table(); |
$result.=&Apache::edit::end_table(); |
| } |
} |
| pop @Apache::inputtags::status; |
pop @Apache::inputtags::status; |
| $Apache::inputtags::part=''; |
$Apache::inputtags::part=''; |
![[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