version 1.55, 2005/09/29 19:18:37
|
version 1.57, 2005/09/30 20:34:53
|
Line 367 sub start_Task {
|
Line 367 sub start_Task {
|
$result.="$head_tag_start<title>$name</title></head> |
$result.="$head_tag_start<title>$name</title></head> |
$body_tag_start \n".&style(); |
$body_tag_start \n".&style(); |
|
|
$result.=$form_tag_start. |
|
'<input type="hidden" name="submitted" value="yes" />'; |
|
$result.=&preserve_grade_info(); |
$result.=&preserve_grade_info(); |
$result.=&internal_location(); |
$result.=&internal_location(); |
|
$result.=$form_tag_start. |
|
'<input type="hidden" name="submitted" value="yes" />'; |
&Apache::lonxml::startredirection(); |
&Apache::lonxml::startredirection(); |
} |
} |
} elsif ( ($target eq 'grade' && $env{'form.webgrade'}) || |
} elsif ( ($target eq 'grade' && $env{'form.webgrade'}) || |
Line 564 sub end_Task {
|
Line 564 sub end_Task {
|
"</table>"; |
"</table>"; |
$result.=&Apache::inputtags::gradestatus('0'); |
$result.=&Apache::inputtags::gradestatus('0'); |
} |
} |
if (&show_task($status,$previous)) { |
if (&show_task($status,$previous) && |
|
$Apache::lonhomework::history{"resource.$version.status"} =~ /^(pass|fail)$/) { |
my $bt_status=$Apache::lonhomework::history{"resource.$version.status"}; |
my $bt_status=$Apache::lonhomework::history{"resource.$version.status"}; |
my $title=&Apache::lonnet::gettitle(); |
my $title=&Apache::lonnet::gettitle(); |
my %slot=&Apache::lonnet::get_slot($Apache::inputtags::slot_name); |
my %slot=&Apache::lonnet::get_slot($Apache::inputtags::slot_name); |