--- loncom/homework/edit.pm 2011/11/22 02:13:37 1.138 +++ loncom/homework/edit.pm 2013/04/25 17:58:32 1.143 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # edit mode helpers # -# $Id: edit.pm,v 1.138 2011/11/22 02:13:37 www Exp $ +# $Id: edit.pm,v 1.143 2013/04/25 17:58:32 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -401,10 +401,8 @@ sub insert_functionplotresponse { return ' <functionplotresponse> <functionplotelements> -<spline /> </functionplotelements> <functionplotruleset> -<functionplotrule /> </functionplotruleset> </functionplotresponse>'; } @@ -429,6 +427,12 @@ sub insert_plotvector { <plotvector />'; } +sub insert_drawvectorsum { + return ' +<drawvectorsum />'; +} + + sub insert_functionplotrule { return ' <functionplotrule />'; @@ -740,6 +744,7 @@ sub js_change_detection { my $unsaved=&mt("There are unsaved changes"); return (<<SCRIPT); <script type="text/javascript"> +// <![CDATA[ var clean = true; var is_submit = false; var still_ask = false; @@ -758,6 +763,7 @@ function unClean() { clean=false; } window.onbeforeunload = compareForm; +// ]]> </script> SCRIPT } @@ -940,7 +946,7 @@ sub checked_arg { $text=$option; $value='value="'.$option.'"'; } - $result.='<span class="LC_nobreak"><label><input type="checkbox" '.$value.' name="'. + $result.=' <span class="LC_edit_opt"><label><input type="checkbox" '.$value.' name="'. &html_element_name($name).'"'; foreach my $selected (split(/,/,$allselected)) { if ( $selected eq $option ) { @@ -954,14 +960,17 @@ sub checked_arg { } sub text_arg { - my ($description,$name,$token,$size) = @_; + my ($description,$name,$token,$size, $class) = @_; my $result; if (!defined $size) { $size=20; } my $arg=$token->[2]{$name}; $result=&mt($description).' <input name="'.&html_element_name($name). - '" type="text" value="'.$arg.'" size="'.$size.'" '. - &element_change_detection().'/>'; - return '<span class="LC_nobreak">'.$result.'</span>'; + '" type="text" value="'.$arg.'" size="'.$size.'" '; + if (defined $class) { + $result .= 'class="' . $class . '" '; + } + $result .= &element_change_detection().'/>'; + return ' <span class="LC_edit_opt">'.$result.'</span>'; } sub select_arg { @@ -987,7 +996,7 @@ sub select_arg { } } } - $result.='<span class="LC_nobreak">'.&mt($description).' <select name="'. + $result.=' <span class="LC_edit_opt">'.&mt($description).' <select name="'. &html_element_name($name).'" '.&element_change_detection().' > '.$optionlist.' </select></span>'; @@ -1038,7 +1047,7 @@ sub select_or_text_arg { $description=&mt($description); # return (<<ENDSELECTORTYPE); -<span class="LC_nobreak"> + <span class="LC_edit_opt"> $description <select name="$selectelement" onChange="if ($selectedvalue!='TYPEDINVALUE') { $hiddenvalue=$selectedvalue; $typedinvalue=''; }" >