version 1.141, 2006/06/24 01:31:34
|
version 1.145, 2006/07/18 18:52:57
|
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 987 sub add_to_gradingqueue {
|
Line 989 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"); |