version 1.15, 2005/04/07 06:56:22
|
version 1.22, 2009/05/11 16:51:22
|
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; |
Line 63 sub rawrendering {
|
Line 66 sub rawrendering {
|
sub questiontext { |
sub questiontext { |
my $text=$qparms{$prefix.'questiontext'}; |
my $text=$qparms{$prefix.'questiontext'}; |
my $qt=&mt('Question Text'); |
my $qt=&mt('Question Text'); |
|
my $spell_link= |
|
&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 |
</td></tr> |
</td></tr> |
</table> |
</table> |
<br /> |
<br /> |
Line 76 ENDQUESTION
|
Line 82 ENDQUESTION
|
sub hint { |
sub hint { |
my $text=$qparms{$prefix.'hinttext'}; |
my $text=$qparms{$prefix.'hinttext'}; |
my $ht=&mt('Hint Text'); |
my $ht=&mt('Hint Text'); |
|
my $spell_link= |
|
&Apache::lonhtmlcommon::spelllink('simpleedit','hinttext'); |
return (<<ENDHINT); |
return (<<ENDHINT); |
<table bgcolor="#accacc" cellspacing="4" cellpadding="2"> |
<table bgcolor="#accacc" cellspacing="4" cellpadding="2"> |
<tr><td><b>$ht</b><br /> |
<tr><td><b>$ht</b><br /> |
<textarea style="width:100%" name="hinttext" cols="80" rows="4">$text</textarea> |
<textarea style="width:100%" name="hinttext" cols="80" rows="4">$text</textarea> |
|
<br />$spell_link |
</td></tr> |
</td></tr> |
</table> |
</table> |
<br /> |
<br /> |
Line 116 sub foil {
|
Line 125 sub foil {
|
'pos' => 'Position', |
'pos' => 'Position', |
'text' => 'Text'); |
'text' => 'Text'); |
|
|
|
my $spell_link= |
|
&Apache::lonhtmlcommon::spelllink('simpleedit',"text$number"); |
return (<<ENDFOIL); |
return (<<ENDFOIL); |
<table bgcolor="#dd55ff" cellspacing="4" cellpadding="2"> |
<table bgcolor="#dd55ff" cellspacing="4" cellpadding="2"> |
<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:100%" name="text$number" cols="80" rows="4">$text</textarea> |
|
<br />$spell_link |
</td></tr> |
</td></tr> |
</table> |
</table> |
<br /> |
<br /> |
Line 131 ENDFOIL
|
Line 143 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 202 sub handler {
|
Line 217 sub handler {
|
$env{'request.course.id'}.'.'.$symb); |
$env{'request.course.id'}.'.'.$symb); |
|
|
# ------------------------------------------------------------ Print the screen |
# ------------------------------------------------------------ Print the screen |
$r->print(<<ENDDOCUMENT); |
my $spell_header=&Apache::lonhtmlcommon::spellheader(); |
<html> |
$r->print(&Apache::loncommon::start_page('Simple Problem Editor', |
<head> |
$spell_header)); |
<title>The LearningOnline Network with CAPA</title> |
|
ENDDOCUMENT |
|
$r->print(&Apache::loncommon::bodytag('Simple Problem Editor')); |
|
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>'. |
$r->print('<p class="LC_warning">' |
'<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.'). |
.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.') |
&Apache::loncommon::help_open_topic('Caching').'</td></tr></table>'); |
.&Apache::loncommon::help_open_topic('Caching') |
|
.'</p>' |
|
); |
|
my $displaylink = &get_parent_uri($symb); |
|
if ($displaylink ne '') { |
|
$r->print(&Apache::lontemplate::start_functionslist() |
|
.&Apache::lontemplate::item_functionslist( |
|
'<a href="'.$displaylink.'">'.&mt('Student View').'</a>') |
|
.&Apache::lontemplate::end_functionslist() |
|
); |
|
} 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('<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 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)', |
Line 305 ENDDOCUMENT
|
Line 336 ENDDOCUMENT
|
} else { |
} else { |
$r->print(&mt('Could not identify problem.')); |
$r->print(&mt('Could not identify problem.')); |
} |
} |
$r->print('</body></html>'); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
|
|