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.209 and 1.210

version 1.209, 2003/09/10 21:18:07	version 1.210, 2003/09/19 20:29:29
Line 36 use strict;	Line 36 use strict;
use Apache::lonnet;	use Apache::lonnet;
use Apache::File();	use Apache::File();
use Apache::lonmenu;	use Apache::lonmenu;
	use Apache::lonlocal;

BEGIN {	BEGIN {
&Apache::lonxml::register('Apache::structuretags',('block','languageblock','instructorcomment','while','randomlist','problem','library','web','tex','part','preduedate','postanswerdate','solved','notsolved','startouttext','endouttext',	&Apache::lonxml::register('Apache::structuretags',('block','languageblock','instructorcomment','while','randomlist','problem','library','web','tex','part','preduedate','postanswerdate','solved','notsolved','startouttext','endouttext',
Line 159 sub setup_rndseed {	Line 160 sub setup_rndseed {
$ENV{'form.rndseed'}=$rndseed;	$ENV{'form.rndseed'}=$rndseed;
}	}
}	}
if ($ENV{'form.resetdata'} eq 'New Problem Variation' \|\|	if ($ENV{'form.resetdata'} eq &mt('New Problem Variation') \|\|
$ENV{'form.newrandomization'} eq 'New Randomization') {	$ENV{'form.newrandomization'} eq &mt('New Randomization')) {
srand(time);	srand(time);
$rndseed=int(rand(2100000000));	$rndseed=int(rand(2100000000));
$ENV{'form.rndseed'}=$rndseed;	$ENV{'form.rndseed'}=$rndseed;
Line 178 sub setup_rndseed {	Line 179 sub setup_rndseed {

sub problem_edit_header {	sub problem_edit_header {
return '<input type="hidden" name="submitted" value="edit" />	return '<input type="hidden" name="submitted" value="edit" />
<input type="hidden" name="problemmode" value="Edit" />	<input type="hidden" name="problemmode" value="'.&mt('Edit').'" />
<input type="submit" name="problemmode" value="Discard Edits and View" />	<input type="submit" name="problemmode" value="'.&mt('Discard Edits and View').'" />
<input type="submit" name="problemmode" value="EditXML" />	<input type="submit" name="problemmode" value="'.&mt('EditXML').'" />
<input type="submit" name="Undo" value="undo" /> <hr />	<input type="submit" name="Undo" value="'.&mt('undo').'" /> <hr />
<input type="submit" name="submit" value="Submit Changes and Edit" />	<input type="submit" name="submit" value="'.&mt('Submit Changes and Edit').'" />
<input type="submit" name="submit" value="Submit Changes and View" /><br /><p> </p><table border="0"><tr><td bgcolor="#DDDDDD">	<input type="submit" name="submit" value="'.&mt('Submit Changes and View').'" /><br /><p> </p><table border="0"><tr><td bgcolor="#DDDDDD">
';	';
}	}

sub problem_edit_footer {	sub problem_edit_footer {
return '</td></tr></table><br /><input type="submit" name="submit" value="Submit Changes and Edit" />	return '</td></tr></table><br /><input type="submit" name="submit" value="'.&mt('Submit Changes and Edit').'" />
<input type="submit" name="submit" value="Submit Changes and View" />';	<input type="submit" name="submit" value="'.&mt('Submit Changes and View').'" />';
}	}

sub problem_web_to_edit_header {	sub problem_web_to_edit_header {
my ($rndseed)=@_;	my ($rndseed)=@_;
my $result.='<input type="hidden" name="problemmode" value="View" />	my $result.='<input type="hidden" name="problemmode" value="'.&mt('View').'" />
<input type="submit" name="problemmode" value="Edit" />	<input type="submit" name="problemmode" value="'.&mt('Edit').'" />
<input type="submit" name="problemmode" value="EditXML" />	<input type="submit" name="problemmode" value="'.&mt('EditXML').'" />
<input type="submit" name="newrandomization" value="New Randomization" />	<input type="submit" name="newrandomization" value="'.&mt('New Randomization').'" />
<input type="submit" name="resetdata" value="Reset Submissions" />	<input type="submit" name="resetdata" value="'.&mt('Reset Submissions').'" />
<nobr><input type="submit" name="changerandseed" value="Change Random Seed To:" />	<nobr><input type="submit" name="changerandseed" value="'.&mt('Change Random Seed To:').'" />
<input type="text" name="rndseed" width="10" value="'.	<input type="text" name="rndseed" width="10" value="'.
$rndseed.'"	$rndseed.'"
onChange="javascript:document.lonhomework.changerandseed.click()" /></nobr>	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.= ' />'.&mt(' Show All Foils').'
<hr />';	<hr />';
my $numtoanalyze=$ENV{'form.numtoanalyze'};	my $numtoanalyze=$ENV{'form.numtoanalyze'};
if (!$numtoanalyze) { $numtoanalyze=20; }	if (!$numtoanalyze) { $numtoanalyze=20; }
$result.= '<input type="submit" name="problemmode" value="Calculate answers" /> for	$result.= '<input type="submit" name="problemmode" value='.
	&mt('"Calculate answers').'" /> for
<input type="text" name="numtoanalyze" value="'.	<input type="text" name="numtoanalyze" value="'.
$numtoanalyze.'" size="5" /> versions of this problem.'.	$numtoanalyze.'" size="5" /> '.&mt('versions of this problem').
&Apache::loncommon::help_open_topic("Analyze_Problem",	'.'.&Apache::loncommon::help_open_topic("Analyze_Problem",
'',undef,undef,300).	'',undef,undef,300).
'<hr />';	'<hr />';
return $result;	return $result;
}	}

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

Removed from v.1.209
changed lines
	Added in v.1.210