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.17 and 1.26

version 1.17, 2006/04/10 22:47:29	version 1.26, 2009/09/24 00:50:03
Line 34 use Apache::loncommon;	Line 34 use Apache::loncommon;
use Apache::lonnet;	use Apache::lonnet;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnavmaps;	use Apache::lonnavmaps;
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;


my %qparms;	my %qparms;
my $prefix;	my $prefix;
	my $weightprefix;
my $qtype;	my $qtype;

sub evaloptionhash {	sub evaloptionhash {
Line 66 sub questiontext {	Line 70 sub questiontext {
my $spell_link=	my $spell_link=
&Apache::lonhtmlcommon::spelllink('simpleedit','questiontext');	&Apache::lonhtmlcommon::spelllink('simpleedit','questiontext');
return (<<ENDQUESTION);	return (<<ENDQUESTION);
<table bgcolor="#dddd22" cellspacing="4" cellpadding="2">	<table bgcolor="#dddd22" cellspacing="4" cellpadding="2" style="width:100%">
<tr><td><b>$qt</b><br />	<tr><td><b>$qt</b><br />
<textarea style="width:100%" name="questiontext" cols="80" rows="8">$text</textarea>	<textarea style="width:100%" name="questiontext" cols="80" rows="8">$text</textarea>
<br />$spell_link	<br />$spell_link
Line 92 sub hint {	Line 96 sub hint {
ENDHINT	ENDHINT
}	}

	sub script {
	my $text=$qparms{$prefix.'numericalscript'};
	my $ht=&mt('Scripting (optional)');
	return (<<ENDSCRIPT);
	<table bgcolor="#ccccaa" cellspacing="4" cellpadding="2">
	<tr><td><b>$ht</b><br />
	<textarea style="width:100%" name="numericalscript" cols="80" rows="4">$text</textarea>
	</td></tr>
	</table>
	<br />
	ENDSCRIPT
	}

sub foil {	sub foil {
my $number=shift;	my $number=shift;
my %values='';	my %values='';
Line 140 ENDFOIL	Line 157 ENDFOIL
sub get_parent_uri {	sub get_parent_uri {
my ($cur_symb)=@_;	my ($cur_symb)=@_;
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
my $it = $navmap->getIterator(undef, undef, undef, 1);	if (defined($navmap)) {
while ( my $res=$it->next()) {	my $it = $navmap->getIterator(undef, undef, undef, 1);
if (ref($res) && $res->symb() eq $cur_symb) { last; }	while ( my $res=$it->next()) {
	if (ref($res) && $res->symb() eq $cur_symb) { last; }
	}
	my ($src,$symb,$anchor)=&Apache::lonnavmaps::getLinkForResource($it->getStack());
	if (defined($anchor)) { $anchor='#'.$anchor; }
	return $src.'?symb='.&escape($symb).$anchor;
}	}
my ($src,$symb,$anchor)=&Apache::lonnavmaps::getLinkForResource($it->getStack());	return;
if (defined($anchor)) { $anchor='#'.$anchor; }
return $src.'?symb='.&Apache::lonnet::escape($symb).$anchor;
}	}

sub handler {	sub handler {
Line 172 sub handler {	Line 192 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
	$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 197 sub handler {	Line 220 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(
	$env{'course.'.$env{'request.course.id'}.'.num'},
	$env{'course.'.$env{'request.course.id'}.'.domain'});

}	}
# ------------------------------------------------------------------- Read Data	# ------------------------------------------------------------------- Read Data

Line 216 sub handler {	Line 253 sub handler {
$spell_header));	$spell_header));
if ($symb) {	if ($symb) {
$r->print('<h1>'.&Apache::lonnet::gettitle($symb).'</h1>');	$r->print('<h1>'.&Apache::lonnet::gettitle($symb).'</h1>');
$r->print('<table width="100%" bgcolor="#FFFFAA" border="2"><tr><td>'.	my $displaylink = &get_parent_uri($symb);
'<a href="'.&get_parent_uri($symb).'">'.&mt('Student View').'</a> - '.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.').	if ($displaylink ne '') {
&Apache::loncommon::help_open_topic('Caching').'</td></tr></table>');	my $functions=&Apache::lonhtmlcommon::start_funclist()
	.&Apache::lonhtmlcommon::add_item_funclist(
	'<a href="'.$displaylink.'">'
	.&mt('Student View').'</a>')
	.&Apache::lonhtmlcommon::end_funclist();
	$r->print(&Apache::loncommon::head_subbox($functions));
	} else {
	$r->print('<p class="LC_error">'
	.&mt('An error occurred retrieving the link to this problem.')
	.'<br />'
	.&mt('You may need to [_1]re-select the course[_2] and then return to this resource to view it.'
	,'<a href="/adm/roles">','</a>')
	.'</p>'
	);
	}
	$r->print('<p class="LC_warning">'
	.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.')
	.&Apache::loncommon::help_open_topic('Caching')
	.'</p>'
	);

$r->print('<table border="2" bgcolor="#FFFFFF" width="100%"><tr><td>'.	$r->print('<table border="2" bgcolor="#FFFFFF" width="100%"><tr><td>'.
&rawrendering($symb).	&rawrendering($symb).
'</td></tr></table><br />');	'</td></tr></table><br />');
$r->print('<form name="simpleedit" method="POST">');	$r->print('<form name="simpleedit" method="post">');
# Question Type	# Question Type
my %questiontypes=('radio' =>	my %questiontypes=('radio' =>
'1 out of N multiple choice (radio button)',	'1 out of N multiple choice (radio button)',
'option' => 'Option response',	'option' => 'Option response',
'string' => 'Short string response',	'string' => 'Short string response',
'essay' => 'Essay, open end');	'essay' => 'Essay, open end',
	'numerical' => 'Numerical response');
$qtype=$qparms{$prefix.'questiontype'};	$qtype=$qparms{$prefix.'questiontype'};
unless (defined($qtype)) { $qtype='radio'; }	unless (defined($qtype)) { $qtype='radio'; }
unless ($questiontypes{$qtype}) { $qtype='radio'; }	unless ($questiontypes{$qtype}) { $qtype='radio'; }
Line 237 sub handler {	Line 295 sub handler {
($qtype,'questiontype',%questiontypes).	($qtype,'questiontype',%questiontypes).
'</b><br /><input type="submit" value="'.&mt('Save and Edit').	'</b><br /><input type="submit" value="'.&mt('Save and Edit').
'" /><p> </p>');	'" /><p> </p>');
	# Script
	if ($qtype eq 'numerical') {
	$r->print(&script());
	}
# Question Text	# Question Text
$r->print(&questiontext());	$r->print(&questiontext());
# Radio, Option ===	# Radio, Option ===
Line 298 sub handler {	Line 360 sub handler {
unless ($stringtypes{$stringtype}) { $stringtype='cs'; }	unless ($stringtypes{$stringtype}) { $stringtype='cs'; }
$r->print(	$r->print(
'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.	'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.
'<tr><td>'.&mt('Correct answer').': <input type="text" size="20" name="stringanswer" value="'.$stringanswer.'" />  '.	'<tr><td><label>'.&mt('Correct answer').': <input type="text" size="20" name="stringanswer" value="'.$stringanswer.'" /></label>  '.
&Apache::loncommon::select_form	&Apache::loncommon::select_form
($stringtype,'stringtype',%stringtypes).	($stringtype,'stringtype',%stringtypes).
'</td></tr></table><br />');	'</td></tr></table><br />');
# Hint	# Hint
$r->print(&hint());	$r->print(&hint());
}	}
	if ($qtype eq 'numerical') {
	my $numericalanswer=$qparms{$prefix.'numericalanswer'};
	unless (defined($numericalanswer)) { $numericalanswer=''; }
	my $numericaltolerance=$qparms{$prefix.'numericaltolerance'};
	unless (defined($numericaltolerance)) { $numericaltolerance='5%'; }
	my $numericalsigfigs=$qparms{$prefix.'numericalsigfigs'};
	unless (defined($numericalsigfigs)) { $numericalsigfigs='1,15'; }

	$r->print(
	'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'.
	'<tr><td><label>'.&mt('Correct answer').': <input type="text" size="20" name="numericalanswer" value="'.$numericalanswer.'" /></label>  '.
	'<label>'.&mt('Unit').': <input type="text" size="5" name="numericalunit" value="'.$qparms{$prefix.'numericalunit'}.'" /></label>  '.
	'<label>'.&mt('Format').': <input type="text" size="5" name="numericalformat" value="'.$qparms{$prefix.'numericalformat'}.'" /></label>  '.
	'<label>'.&mt('Tolerance').': <input type="text" size="5" name="numericaltolerance" value="'.$numericaltolerance.'" /></label>  '.
	'<label>'.&mt('Significant digits').': <input type="text" size="5" name="numericalsigfigs" value="'.$numericalsigfigs.'" /></label>'.
	'</td></tr></table><br />');
	$r->print(&hint());
	}
# Store Button	# Store Button
$r->print(	$r->print(
'<input type="submit" value="'.&mt('Save and Edit').'" /></form>');	'<input type="submit" value="'.&mt('Save and Edit').'" /></form>');

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

Removed from v.1.17
changed lines
	Added in v.1.26