version 1.10, 2000/12/04 21:15:33
|
version 1.11, 2000/12/04 22:08:57
|
Line 179 sub grade {
|
Line 179 sub grade {
|
my ($target) = @_; |
my ($target) = @_; |
my $id = $Apache::inputtags::part; |
my $id = $Apache::inputtags::part; |
my $result=''; |
my $result=''; |
my $button='<input type="submit" name="submit" value="Submit All Answers">'; |
|
my $response=''; |
my $response=''; |
if ( $target == 'web' ) { |
if ( $target == 'web' ) { |
if ( defined $ENV{'form.submit'}) { |
if ( defined $ENV{'form.submit'}) { |
Line 200 sub grade {
|
Line 199 sub grade {
|
$Apache::lonhomework::results{"resource.tries.$id"} = |
$Apache::lonhomework::results{"resource.tries.$id"} = |
$Apache::lonhomework::history{"resource.tries.$id"} + 1; |
$Apache::lonhomework::history{"resource.tries.$id"} + 1; |
&Apache::lonxml::debug("final award $finalaward"); |
&Apache::lonxml::debug("final award $finalaward"); |
|
#if ($showbutton > 0) { $result.=$button } |
} |
} |
if ($showbutton > 0) { $result.=$button } |
|
} |
} |
return $result; |
return $result; |
} |
} |
|
|
|
sub gradestatus { |
|
my $button='<input type="submit" name="submit" value="Submit All Answers">'; |
|
return 'Grade Status is Unknown'.$button; |
|
} |
1; |
1; |
__END__ |
__END__ |
|
|