version 1.78, 2005/11/15 21:41:10
|
version 1.79, 2005/11/18 20:29:13
|
Line 671 sub get_key_todo {
|
Line 671 sub get_key_todo {
|
} |
} |
return (undef,undef) |
return (undef,undef) |
} |
} |
|
|
sub end_Task { |
sub end_Task { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my $result=''; |
my $result=''; |
Line 779 DONEBUTTON
|
Line 778 DONEBUTTON
|
if ($award eq 'SUBMITTED') { |
if ($award eq 'SUBMITTED') { |
&add_to_queue('gradingqueue',$Apache::inputtags::slot_name); |
&add_to_queue('gradingqueue',$Apache::inputtags::slot_name); |
} |
} |
|
} elsif ($Apache::lonhomework::results{'INTERNAL_store'}) { |
|
&Apache::structuretags::finalize_storage(); |
} |
} |
if ($target eq 'grade' && $env{'form.webgrade'} eq 'yes') { |
if ($target eq 'grade' && $env{'form.webgrade'} eq 'yes') { |
my $optional_required= |
my $optional_required= |
Line 1466 sub get_instance {
|
Line 1467 sub get_instance {
|
$instance = $instances[($version-1)%scalar(@instances)]; |
$instance = $instances[($version-1)%scalar(@instances)]; |
$Apache::lonhomework::results{"resource.$version.0.$dim.instance"} = |
$Apache::lonhomework::results{"resource.$version.0.$dim.instance"} = |
$instance; |
$instance; |
|
$Apache::lonhomework::results{'INTERNAL_store'} = 1; |
&Apache::response::poprandomnumber(); |
&Apache::response::poprandomnumber(); |
return $instance; |
return $instance; |
} |
} |