--- loncom/homework/edit.pm 2013/05/06 16:07:29 1.144 +++ loncom/homework/edit.pm 2014/11/28 18:23:03 1.152 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # edit mode helpers # -# $Id: edit.pm,v 1.144 2013/05/06 16:07:29 bisitz Exp $ +# $Id: edit.pm,v 1.152 2014/11/28 18:23:03 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -161,7 +161,7 @@ sub tag_start { if ($target eq "edit") { my $tag=$token->[1]; if (!$description) { - $description=&Apache::lonxml::description($token); + $description=&mt(&Apache::lonxml::description($token)); if (!$description) { $description="<$tag>"; } } $result.= &start_table($token)."$description @@ -175,7 +175,7 @@ sub tag_start { # "\n"; my @help = Apache::lonxml::helpinfo($token); if ($help[0]) { - $result .= '' . + $result .= ''. Apache::loncommon::help_open_topic(@help); } else { $result .= " "; } $result .= &end_row().&start_spanning_row(); @@ -203,7 +203,7 @@ sub start_table { } $Apache::edit::colordepth++; push(@Apache::edit::inserttag,$token->[1]); - my $result='
'; + my $result='
'; $result.=''; return $result; } @@ -211,7 +211,7 @@ sub start_table { sub end_table { $Apache::edit::colordepth--; my $result='
'; - $result.='
'; + $result.='
'; my ($tagname,$closingtag); if (defined($Apache::edit::inserttag[-2])) { @@ -296,7 +296,7 @@ sub get_insert_list { my $descrip=$Apache::lonxml::insertlist{"$tag.description"}; my $tagnum =$Apache::lonxml::insertlist{"$tag.num"}; $options{$descrip} ="\n"; + &mt($descrip)."\n"; } foreach my $option (sort(keys(%options))) {$result.=$options{$option};} if ($result) { $result=''.$result; } @@ -488,6 +488,13 @@ sub insert_numericalresponse { '; } +sub insert_externalresponse { + return ' + + +'; +} + sub insert_customresponse { return ' @@ -660,6 +667,9 @@ sub insert_matchresponse { + + + @@ -786,6 +796,49 @@ sub submit_dont_ask { return ' onclick="is_submit=true;'.$extra_action.'" '; } +sub js_update_linknum { + return (< +// '+picknum+''; + } else { + if (caller == 'check') { + pickitem.checked=false; + pickitem.value='nochoice'; + } + return; + } + } + } else { + pickitem.value = ''; + picknumtext.innerHTML = ''; + } +} + +// ]]> + +SCRIPT + +} sub textarea_sizes { my ($data)=@_; @@ -931,7 +984,7 @@ sub hidden_arg { } sub checked_arg { - my ($description,$name,$list,$token) = @_; + my ($description,$name,$list,$token,$onclick,$useid) = @_; my $result; my $optionlist=""; my $allselected=$token->[2]{$name}; @@ -940,10 +993,10 @@ sub checked_arg { my ($value,$text); if ( ref($option) eq 'ARRAY') { $value='value="'.$$option[0].'"'; - $text=$$option[1]; + $text=&mt($$option[1]); $option=$$option[0]; } else { - $text=$option; + $text=&mt($option); $value='value="'.$option.'"'; } $result.=' '."\n"; } return $result; } @@ -1050,13 +1106,13 @@ sub select_or_text_arg { $description   +onchange="$hiddenvalue=$typedinvalue;" +onfocus="$selectedindex=$selecttypeinindex-1;" /> ENDSELECTORTYPE