version 1.20, 2009/02/01 20:40:28
|
version 1.23, 2009/06/11 16:48:28
|
Line 222 sub handler {
|
Line 222 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); |
my $displaylink = &get_parent_uri($symb); |
if ($displaylink ne '') { |
if ($displaylink ne '') { |
$r->print('<a href="'.$displaylink.'">'.&mt('Student View').'</a> - '); |
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 { |
} else { |
$r->print('<span 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>').'</span><br />'); |
$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(&mt('Note: it can take up to 10 minutes for changes to take effect for all users.'). |
$r->print('<p class="LC_warning">' |
&Apache::loncommon::help_open_topic('Caching').'</td></tr></table>'); |
.&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)', |