--- loncom/homework/edit.pm 2011/11/22 02:13:37 1.138 +++ loncom/homework/edit.pm 2012/08/07 14:54:10 1.142 @@ -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.142 2012/08/07 14:54:10 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -401,10 +401,8 @@ sub insert_functionplotresponse { return ' - - '; } @@ -429,6 +427,12 @@ sub insert_plotvector { '; } +sub insert_drawvectorsum { + return ' +'; +} + + sub insert_functionplotrule { return ' '; @@ -740,6 +744,7 @@ sub js_change_detection { my $unsaved=&mt("There are unsaved changes"); return (< +// SCRIPT } @@ -954,13 +960,16 @@ 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).' '; + '" type="text" value="'.$arg.'" size="'.$size.'" '; + if (defined $class) { + $result .= 'class="' . $class . '" '; + } + $result .= &element_change_detection().'/>'; return ''.$result.''; }