--- loncom/homework/inputtags.pm 2013/08/29 12:47:30 1.321 +++ loncom/homework/inputtags.pm 2014/11/07 22:00:17 1.327 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # input definitons # -# $Id: inputtags.pm,v 1.321 2013/08/29 12:47:30 raeburn Exp $ +# $Id: inputtags.pm,v 1.327 2014/11/07 22:00:17 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -222,7 +222,7 @@ sub start_textfield { $oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"}; } elsif (($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurvey') || ($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurveycred')) { - $oldresponse = '* '.&mt('only shown to submitter').' *'; + $oldresponse = '* '.&mt('(only shown to submitter)').' *'; } else { $oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"}; } @@ -235,11 +235,16 @@ sub start_textfield { my $addchars=&Apache::lonxml::get_param('addchars',$parstack,$safeeval); $result=''; my $tagident = 'HWVAL_' . $resid; + my $itemid = 'HWVAL_'.$partid.'_'.$resid; if ($addchars) { $result.=&addchars($tagident, $addchars); } - my $textareaclass = 'class="LC_richDetectHtml spellchecked"'; - $result.= '"; - $result .= &spellcheck_onblur($tagident, $spellcheck); + $result .= &spellcheck_onblur($itemid, $spellcheck); return $result; } } elsif ($target eq 'edit') { @@ -424,7 +431,7 @@ sub start_textline { ($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurveycred') || ($Apache::lonhomework::type eq 'anonsurvey') || ($Apache::lonhomework::type eq 'anonsurveycred')) { - $oldresponse = '* '.&mt('only shown to submitter').' *'; + $oldresponse = '* '.&mt('(only shown to submitter)').' *'; } else { $oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"}; } @@ -452,18 +459,19 @@ sub start_textline { $readonly=''; } my $name = 'HWVAL_'.$id; + my $itemid = 'HWVAL_'.$partid.'_'.$id; if ($Apache::inputtags::status[-1] eq 'CANNOT_ANSWER') { $name = "none"; } $result.= ''; + . ' class="LC_textline spellchecked" size="'.$size.'"'.$maxlength + . ' autocomplete="off" />'; - $result .= &spellcheck_onblur($name, $spellcheck); + $result .= &spellcheck_onblur($itemid, $spellcheck); } if ($Apache::lonhomework::type eq 'exam' && &needs_exam_box($tagstack)) { @@ -992,7 +1000,7 @@ sub finalizeawards { } sub decideoutput { - my ($award,$awarded,$awardmsg,$solved,$previous,$target,$nocorrect)=@_; + my ($award,$awarded,$awardmsg,$solved,$previous,$target,$nocorrect,$tdclass)=@_; my $message=''; my $button=0; @@ -1568,7 +1576,7 @@ sub grade { } sub get_grade_messages { - my ($id,$prefix,$target,$status,$nocorrect) = @_; + my ($id,$prefix,$target,$status,$nocorrect,$tdclass) = @_; # nocorrect suppresses "Computer's answer now shown above" my ($message,$latemessage,$trystr,$previousmsg); my $showbutton = 1; @@ -1583,13 +1591,13 @@ sub get_grade_messages { &Apache::lonxml::debug('Getting message'); ($showbutton,my $css_class,$message,$previousmsg) = &decideoutput($award,$awarded,$awardmsg,$solved,$previous, - $target,(($status eq 'CAN_ANSWER') || $nocorrect)); + $target,(($status eq 'CAN_ANSWER') || $nocorrect),$tdclass); if ($target eq 'tex') { $message='\vskip 2 mm '.$message.' '; } else { - $message="
'.$button.' | '.$output; if (!$no_previous) { - $output.=''.&previous_tries($id,$target).' | '; + $output.=''.&previous_tries($id,$target).' | '; } $output.= '