version 1.141, 2006/06/24 01:31:34
|
version 1.146, 2006/08/01 14:41:46
|
Line 131 sub setrandomnumber {
|
Line 131 sub setrandomnumber {
|
$id1=&Apache::bridgetask::get_dim_id(); |
$id1=&Apache::bridgetask::get_dim_id(); |
if (!$ignore_id2 && ref($Apache::bridgetask::instance{$id1})) { |
if (!$ignore_id2 && ref($Apache::bridgetask::instance{$id1})) { |
$id2=$Apache::bridgetask::instance{$id1}[-1]; |
$id2=$Apache::bridgetask::instance{$id1}[-1]; |
|
$shift_amt=scalar(@{$Apache::bridgetask::instance{$id1}}); |
|
} else { |
|
$shift_amt=0; |
} |
} |
$shift_amt=scalar(@{$Apache::bridgetask::instance{$id1}}); |
|
} |
} |
&Apache::lonxml::debug("id1: $id1, id2: $id2, shift_amt: $shift_amt"); |
&Apache::lonxml::debug("id1: $id1, id2: $id2, shift_amt: $shift_amt"); |
if (!$rand_alg || $rand_alg eq '32bit' || $rand_alg eq '64bit' || |
if (!$rand_alg || $rand_alg eq '32bit' || $rand_alg eq '64bit' || |
Line 401 sub end_customresponse {
|
Line 403 sub end_customresponse {
|
my $id=$Apache::inputtags::response[-1]; |
my $id=$Apache::inputtags::response[-1]; |
if ( $target eq 'grade' && &Apache::response::submitted() ) { |
if ( $target eq 'grade' && &Apache::response::submitted() ) { |
my $response = &Apache::response::getresponse(); |
my $response = &Apache::response::getresponse(); |
if ( $response =~ /[^\s]/ && |
if ($Apache::lonhomework::type eq 'exam' || |
$Apache::response::custom_answer_type eq 'loncapa/perl') { |
&Apache::response::submitted('scantron')) { |
|
&Apache::response::scored_response($part,$id); |
|
} elsif ( $response =~ /[^\s]/ && |
|
$Apache::response::custom_answer_type eq 'loncapa/perl') { |
if (!$Apache::lonxml::default_homework_loaded) { |
if (!$Apache::lonxml::default_homework_loaded) { |
&Apache::lonxml::default_homework_load($safeeval); |
&Apache::lonxml::default_homework_load($safeeval); |
} |
} |
Line 427 sub end_customresponse {
|
Line 432 sub end_customresponse {
|
$error; |
$error; |
} |
} |
} |
} |
|
} elsif ( $target eq 'answer') { |
|
$result = &Apache::response::answer_header('customresponse'); |
|
my $answer = &Apache::lonxml::get_param('answerdisplay',$parstack, |
|
$safeeval); |
|
if ($env{'form.answer_output_mode'} ne 'tex') { |
|
$answer = '<b>'.$answer.'</b>'; |
|
} |
|
$result .= &Apache::response::answer_part('customresponse',$answer); |
|
$result .= &Apache::response::answer_footer('customresponse'); |
|
} |
|
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
|
$target eq 'tex' || $target eq 'analyze') { |
|
&Apache::lonxml::increment_counter(&Apache::response::repetition()); |
} |
} |
pop(@Apache::lonxml::namespace); |
pop(@Apache::lonxml::namespace); |
&Apache::lonxml::deregister('Apache::response',('answer')); |
&Apache::lonxml::deregister('Apache::response',('answer')); |
Line 987 sub add_to_gradingqueue {
|
Line 1005 sub add_to_gradingqueue {
|
# a return of 3 means it after the answer date |
# a return of 3 means it after the answer date |
sub check_status { |
sub check_status { |
my ($id)=@_; |
my ($id)=@_; |
if (!$id) { $id=$Apache::linputtags::part; } |
if (!defined($id)) { $id=$Apache::inputtags::part; } |
my $curtime=&Apache::lonnet::EXT('system.time'); |
my $curtime=&Apache::lonnet::EXT('system.time'); |
my $opendate=&Apache::lonnet::EXT("resource.$id.opendate"); |
my $opendate=&Apache::lonnet::EXT("resource.$id.opendate"); |
my $duedate=&Apache::lonnet::EXT("resource.$id.duedate"); |
my $duedate=&Apache::lonnet::EXT("resource.$id.duedate"); |