version 1.58, 2002/01/30 17:33:15
|
version 1.59, 2002/02/14 21:48:31
|
Line 78 sub setrandomnumber {
|
Line 78 sub setrandomnumber {
|
$rndseed=$ENV{'form.rndseed'}; |
$rndseed=$ENV{'form.rndseed'}; |
if (!$rndseed) { $rndseed=time; } |
if (!$rndseed) { $rndseed=time; } |
} else { |
} else { |
$rndseed=&Apache::lonnet::rndseed(); |
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); |
|
$rndseed=&Apache::lonnet::rndseed($symb,$courseid,$domain,$name); |
} |
} |
&Apache::lonxml::debug("randseed $rndseed"); |
&Apache::lonxml::debug("randseed $rndseed"); |
# $rndseed=unpack("%32i",$rndseed); |
# $rndseed=unpack("%32i",$rndseed); |
Line 355 sub start_responseparam {
|
Line 356 sub start_responseparam {
|
$result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
$result.=&Apache::edit::handle_insert(); |
$result.=&Apache::edit::handle_insert(); |
} |
} |
} elsif ($target eq 'grade') { |
} elsif ($target eq 'grade' || $target eq 'answer' ) { |
if ($ENV{'request.state'} eq 'construct') { |
if ($ENV{'request.state'} eq 'construct') { |
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
my $default = &Apache::lonxml::get_param('default',$parstack,$safeeval); |
my $default = &Apache::lonxml::get_param('default',$parstack,$safeeval); |