version 1.21, 2009/04/06 12:59:07
|
version 1.24, 2009/08/17 18:18:35
|
Line 95 sub hint {
|
Line 95 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 222 sub handler {
|
Line 235 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('<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>' |
|
); |
|
my $displaylink = &get_parent_uri($symb); |
my $displaylink = &get_parent_uri($symb); |
if ($displaylink ne '') { |
if ($displaylink ne '') { |
$r->print(&Apache::lontemplate::start_functionslist() |
my $functions=&Apache::lonhtmlcommon::start_funclist() |
.&Apache::lontemplate::item_functionslist( |
.&Apache::lonhtmlcommon::add_item_funclist( |
'<a href="'.$displaylink.'">'.&mt('Student View').'</a>') |
'<a href="'.$displaylink.'">' |
.&Apache::lontemplate::end_functionslist() |
.&mt('Student View').'</a>') |
); |
.&Apache::lonhtmlcommon::end_funclist(); |
|
$r->print(&Apache::loncommon::head_subbox($functions)); |
} else { |
} else { |
$r->print('<p class="LC_error">' |
$r->print('<p class="LC_error">' |
.&mt('An error occurred retrieving the link to this problem.') |
.&mt('An error occurred retrieving the link to this problem.') |
Line 243 sub handler {
|
Line 252 sub handler {
|
.'</p>' |
.'</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 262 sub handler {
|
Line 277 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 330 sub handler {
|
Line 349 sub handler {
|
# Hint |
# Hint |
$r->print(&hint()); |
$r->print(&hint()); |
} |
} |
|
if ($qtype eq 'numerical') { |
|
my $numericalanswer=$qparms{$prefix.'numericalanswer'}; |
|
unless (defined($numericalanswer)) { $numericalanswer=''; } |
|
|
|
$r->print( |
|
'<table bgcolor="#00ee44" cellspacing="4" cellpadding="2">'. |
|
'<tr><td>'.&mt('Correct answer').': <input type="text" size="20" name="numericalanswer" value="'.$numericalanswer.'" />'. |
|
'</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>'); |