loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/structuretags.pm between versions 1.174 and 1.175

version 1.174, 2003/05/14 18:02:56	version 1.175, 2003/05/15 21:44:23
Line 146 sub setup_rndseed {	Line 146 sub setup_rndseed {
$ENV{'form.rndseed'}=$rndseed;	$ENV{'form.rndseed'}=$rndseed;
}	}
}	}
if ($ENV{'form.resetdata'} eq 'New Problem Variation') {	if ($ENV{'form.resetdata'} eq 'New Problem Variation' \|\|
	$ENV{'form.newrandomization'} eq 'New Randomization') {
$rndseed=time;	$rndseed=time;
	if ($rndseed eq $ENV{'form.rndseed'}) {
	srand($rndseed);
	$rndseed=int(rand(1000000000));
	}
$ENV{'form.rndseed'}=$rndseed;	$ENV{'form.rndseed'}=$rndseed;
}	}
&Apache::lonxml::debug("Setting rndseed to $rndseed");	&Apache::lonxml::debug("Setting rndseed to $rndseed");
Line 177 sub problem_web_to_edit_header {	Line 182 sub problem_web_to_edit_header {
my $result.='<input type="hidden" name="problemmode" value="View" />	my $result.='<input type="hidden" name="problemmode" value="View" />
<input type="submit" name="problemmode" value="Edit" />	<input type="submit" name="problemmode" value="Edit" />
<input type="submit" name="problemmode" value="EditXML" />	<input type="submit" name="problemmode" value="EditXML" />
Random Seed:<input type="text" name="rndseed" width="10" value="'.	<input type="submit" name="newrandomization" value="New Randomization" />
$rndseed.'" />
<input type="submit" name="changerandseed" value="Change" />
<input type="submit" name="resetdata" value="Reset Submissions" />	<input type="submit" name="resetdata" value="Reset Submissions" />
	<nobr><input type="submit" name="changerandseed" value="Change Random Seed To:" />
	<input type="text" name="rndseed" width="10" value="'.
	$rndseed.'"
	onChange="javascript:document.lonhomework.changerandseed.click()" /></nobr>
<input type="checkbox" name="showallfoils" ';	<input type="checkbox" name="showallfoils" ';
if (defined($ENV{'form.showallfoils'})) { $result.='checked="on"'; }	if (defined($ENV{'form.showallfoils'})) { $result.='checked="on"'; }
$result.= ' /> Show All Foils	$result.= ' /> Show All Foils

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.174
changed lines
	Added in v.1.175