--- loncom/homework/edit.pm 2013/07/04 16:06:13 1.146 +++ 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.146 2013/07/04 16:06:13 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)."<tr><td>$description</td> @@ -175,7 +175,7 @@ sub tag_start { # "</tr><tr><td colspan=\"3\">\n"; my @help = Apache::lonxml::helpinfo($token); if ($help[0]) { - $result .= '</td><td align="right" valign="top">' . + $result .= '</td><td class="LC_edit_problem_latexhelper">'. Apache::loncommon::help_open_topic(@help); } else { $result .= "</td><td> "; } $result .= &end_row().&start_spanning_row(); @@ -203,7 +203,7 @@ sub start_table { } $Apache::edit::colordepth++; push(@Apache::edit::inserttag,$token->[1]); - my $result='<div align="right">'; + my $result='<div>'; $result.='<table bgcolor="'.$color.'" width="97%" border="0" cellspacing="3" cellpadding="2">'; return $result; } @@ -211,7 +211,7 @@ sub start_table { sub end_table { $Apache::edit::colordepth--; my $result='</table></div>'; - $result.='<div align="left"><table><tr><td>'; + $result.='<div><table><tr><td>'; 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} ="<option value=\"$tagnum\">". - $descrip."</option>\n"; + &mt($descrip)."</option>\n"; } foreach my $option (sort(keys(%options))) {$result.=$options{$option};} if ($result) { $result='<option selected="selected"></option>'.$result; } @@ -796,6 +796,49 @@ sub submit_dont_ask { return ' onclick="is_submit=true;'.$extra_action.'" '; } +sub js_update_linknum { + return (<<SCRIPT); +<script type="text/javascript"> +// <![CDATA[ +function updateNumber(name,index,caller,textprompt) { + var pickitem = document.getElementById(name+'_'+index); + var picknumtext = document.getElementById(name+'_numtext_'+index); + if (pickitem.checked) { + var showval = ''; + if (pickitem.value != 'nochoice') { + showval = pickitem.value; + } + var picknum=prompt(textprompt,showval); + if (picknum == '' || picknum == null) { + if (caller == 'check') { + pickitem.checked=false; + pickitem.value='nochoice'; + } + } else { + picknum.toString(); + var regexdigit=/^\\d+\$/; + if (regexdigit.test(picknum)) { + pickitem.value = picknum; + picknumtext.innerHTML = ' <a href="javascript:updateNumber(\\''+name+'\\',\\''+index+'\\',\\'link\\',\\''+textprompt+'\\');">'+picknum+'</a>'; + } else { + if (caller == 'check') { + pickitem.checked=false; + pickitem.value='nochoice'; + } + return; + } + } + } else { + pickitem.value = ''; + picknumtext.innerHTML = ''; + } +} + +// ]]> +</script> +SCRIPT + +} sub textarea_sizes { my ($data)=@_; @@ -941,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}; @@ -950,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.=' <span class="LC_edit_opt"><label><input type="checkbox" '.$value.' name="'. @@ -964,7 +1007,10 @@ sub checked_arg { last; } } - $result.=&element_change_detection().' />'.$text.'</label></span>'."\n"; + if ($useid) { + $result .= ' id="'.&html_element_name($name).'" '; + } + $result.=&element_change_detection().$onclick.' />'.$text.'</label></span>'."\n"; } return $result; } @@ -1060,13 +1106,13 @@ sub select_or_text_arg { <span class="LC_edit_opt"> $description <select name="$selectelement" -onChange="if ($selectedvalue!='TYPEDINVALUE') { $hiddenvalue=$selectedvalue; $typedinvalue=''; }" > +onchange="if ($selectedvalue!='TYPEDINVALUE') { $hiddenvalue=$selectedvalue; $typedinvalue=''; }" > $optionlist </select> <input type="text" size="$size" name="$typeinelement" value="$typeinvalue" -onChange="$hiddenvalue=$typedinvalue;" -onFocus="$selectedindex=$selecttypeinindex-1;" /> +onchange="$hiddenvalue=$typedinvalue;" +onfocus="$selectedindex=$selecttypeinindex-1;" /> <input type="hidden" name="$element" value="$selected" $change_code /> </span> ENDSELECTORTYPE