loncom/homework/lonsimpleproblemedit.pm - diff

Return to lonsimpleproblemedit.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/lonsimpleproblemedit.pm between versions 1.25 and 1.28

version 1.25, 2009/08/17 19:46:49	version 1.28, 2009/10/16 17:23:51
Line 141 sub foil {	Line 141 sub foil {
my $spell_link=	my $spell_link=
&Apache::lonhtmlcommon::spelllink('simpleedit',"text$number");	&Apache::lonhtmlcommon::spelllink('simpleedit',"text$number");
return (<<ENDFOIL);	return (<<ENDFOIL);
<table bgcolor="#dd55ff" cellspacing="4" cellpadding="2">	<table bgcolor="#E8D8EE" cellspacing="2" cellpadding="1">
<tr><td colspan="2"><b>$lt{'foil'}</b></td></tr>	<tr><td colspan="2"><b>$lt{'foil'}</b></td></tr>
<tr><td>$lt{'value'}: $selectvalue</td><td>$lt{'pos'}: $selectposition</td></tr>	<tr><td>$lt{'value'}: $selectvalue</td><td>$lt{'pos'}: $selectposition</td></tr>
<tr><td colspan="2">$lt{'text'}:<br />	<tr><td colspan="2">$lt{'text'}:<br />
<textarea style="width:100%" name="text$number" cols="80" rows="4">$text</textarea>	<textarea style="width:99%" name="text$number" cols="80" rows="4">$text</textarea>
<br />$spell_link	<br />$spell_link
</td></tr>	</td></tr>
</table>	</table>
Line 191 sub handler {	Line 191 sub handler {

# ------------------------------------------------ Prefix for everything stored	# ------------------------------------------------ Prefix for everything stored
$prefix=$env{'request.course.id'}.'.'.$symb.'.0.';	$prefix=$env{'request.course.id'}.'.'.$symb.'.0.';
	#------------------------------------------------- Prefix for storing weight of Problem Parts
	my $weightprefix=$env{'request.course.id'}.'.'.$symb.'.';

# ---------------------------------------------------------- Anything to store?	# ---------------------------------------------------------- Anything to store?

if (($symb) && (defined($env{'form.questiontype'}))) {	if (($symb) && (defined($env{'form.questiontype'}))) {
Line 216 sub handler {	Line 219 sub handler {
$storecontent{$prefix.$parm}=~s/\s+$//s;	$storecontent{$prefix.$parm}=~s/\s+$//s;
}	}
}	}
	# ---------------------------------------------------- Set weights of hidden parts to zero
	# ------------------------------------------------------ and used part to 1
	$storecontent{$weightprefix.'essay.weight'}=0;
	$storecontent{$weightprefix.'numerical.weight'}=0;
	$storecontent{$weightprefix.'option.weight'}=0;
	$storecontent{$weightprefix.'radio.weight'}=0;
	$storecontent{$weightprefix.'string.weight'}=0;
	$storecontent{$weightprefix.$env{'form.questiontype'}.'.weight'}=1;


my $reply=&Apache::lonnet::cput	my $reply=&Apache::lonnet::cput
('resourcedata',\%storecontent,	('resourcedata',\%storecontent,
$env{'course.'.$env{'request.course.id'}.'.domain'},	$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'});	$env{'course.'.$env{'request.course.id'}.'.num'});

&Apache::lonnet::devalidatecourseresdata(	&Apache::lonnet::devalidatecourseresdata(
$env{'course.'.$env{'request.course.id'}.'.num'},	$env{'course.'.$env{'request.course.id'}.'.num'},
$env{'course.'.$env{'request.course.id'}.'.domain'});	$env{'course.'.$env{'request.course.id'}.'.domain'});
Line 305 sub handler {	Line 318 sub handler {
': <input type="text" size="3" name="maxfoils" value="'.$maxfoils.'" />  '.	': <input type="text" size="3" name="maxfoils" value="'.$maxfoils.'" />  '.
&Apache::loncommon::select_form	&Apache::loncommon::select_form
($randomize,'randomize',%randomizes).	($randomize,'randomize',%randomizes).
'</td></tr><tr><td bgcolor="#AAAAAA">');	'</td></tr><tr><td bgcolor="#F0F0F0">');
# Option Response: Options	# Option Response: Options
if ($qtype eq 'option') {	if ($qtype eq 'option') {
my $options=$qparms{$prefix.'options'};	my $options=$qparms{$prefix.'options'};

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

Removed from v.1.25
changed lines
	Added in v.1.28