--- loncom/homework/edit.pm 2013/04/25 17:58:32 1.143 +++ loncom/homework/edit.pm 2013/06/25 15:07:30 1.145 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # edit mode helpers # -# $Id: edit.pm,v 1.143 2013/04/25 17:58:32 bisitz Exp $ +# $Id: edit.pm,v 1.145 2013/06/25 15:07:30 kruse Exp $ # # Copyright Michigan State University Board of Trustees # @@ -488,6 +488,13 @@ sub insert_numericalresponse { </numericalresponse>'; } +sub insert_externalresponse { + return ' +<externalresponse url="" answer="" answerdisplay="" form=""> + <textfield spellcheck="none" /> +</externalresponse>'; +} + sub insert_customresponse { return ' <customresponse> @@ -828,7 +835,7 @@ sub editfield { if ($cols > 80) { $cols = 80; } if ($cols < $minwidth ) { $cols = $minwidth; } if ($rows < $minheight) { $rows = $minheight; } - if ($description) { $description=$description."<br />"; } + if ($description) { $description='<br />'.&mt($description).'<br />'; } # remove typesetting whitespace from between data and the end tag # to make the edit look prettier @@ -840,8 +847,8 @@ sub editfield { $Apache::lonxml::curdepth.'" '.&element_change_detection(). $textareaclass.'>'. &HTML::Entities::encode($data,'<>&"').'</textarea>'. - ($usehtmlarea?&Apache::lonhtmlcommon::spelllink('lonhomework', - 'homework_edit_'.$Apache::lonxml::curdepth):'')."\n"; + ($usehtmlarea?'<br />'.&Apache::lonhtmlcommon::spelllink('lonhomework', + 'homework_edit_'.$Apache::lonxml::curdepth):'')."\n"; } sub modifiedfield {