--- loncom/homework/lonsimpleproblemedit.pm 2005/04/07 06:56:22 1.15 +++ loncom/homework/lonsimpleproblemedit.pm 2005/05/26 20:35:53 1.16 @@ -1,7 +1,7 @@ # The LearningOnline Network # Simple Problem Parameter Setting "Editor" # -# $Id: lonsimpleproblemedit.pm,v 1.15 2005/04/07 06:56:22 albertel Exp $ +# $Id: lonsimpleproblemedit.pm,v 1.16 2005/05/26 20:35:53 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -63,10 +63,13 @@ sub rawrendering { sub questiontext { my $text=$qparms{$prefix.'questiontext'}; my $qt=&mt('Question Text'); + my $spell_link= + &Apache::lonhtmlcommon::spelllink('simpleedit','questiontext'); return (< $qt
+
$spell_link
@@ -76,10 +79,13 @@ ENDQUESTION sub hint { my $text=$qparms{$prefix.'hinttext'}; my $ht=&mt('Hint Text'); + my $spell_link= + &Apache::lonhtmlcommon::spelllink('simpleedit','hinttext'); return (< $ht
+
$spell_link
@@ -116,12 +122,15 @@ sub foil { 'pos' => 'Position', 'text' => 'Text'); + my $spell_link= + &Apache::lonhtmlcommon::spelllink('simpleedit',"text$number"); return (< $lt{'foil'} $lt{'value'}: $selectvalue$lt{'pos'}: $selectposition $lt{'text'}:
+
$spell_link
@@ -202,10 +211,13 @@ sub handler { $env{'request.course.id'}.'.'.$symb); # ------------------------------------------------------------ Print the screen + my $spell_header=&Apache::lonhtmlcommon::spellheader(); $r->print(< The LearningOnline Network with CAPA +$spell_header + ENDDOCUMENT $r->print(&Apache::loncommon::bodytag('Simple Problem Editor')); if ($symb) { @@ -216,7 +228,7 @@ ENDDOCUMENT $r->print('
'. &rawrendering($symb). '

'); - $r->print('
'); + $r->print(''); # Question Type my %questiontypes=('radio' => '1 out of N multiple choice (radio button)',