|
version 1.358, 2023/04/02 03:16:28
|
version 1.359, 2023/09/10 18:12:53
|
|
Line 450 sub start_textline {
|
Line 450 sub start_textline {
|
| if ($addchars) { |
if ($addchars) { |
| $result.=&addchars('HWVAL_'.$id,$addchars); |
$result.=&addchars('HWVAL_'.$id,$addchars); |
| } |
} |
| |
my $numrespclass; |
| my $readonly=&Apache::lonxml::get_param('readonly',$parstack, |
my $readonly=&Apache::lonxml::get_param('readonly',$parstack, |
| $safeeval); |
$safeeval); |
| if (lc($readonly) eq 'yes' |
if (lc($readonly) eq 'yes' |
|
Line 457 sub start_textline {
|
Line 458 sub start_textline {
|
| $readonly=' readonly="readonly" '; |
$readonly=' readonly="readonly" '; |
| } else { |
} else { |
| $readonly=''; |
$readonly=''; |
| |
if (($Apache::inputtags::status['-1'] eq 'CAN_ANSWER') && |
| |
($tagstack->[-2] eq 'numericalresponse')) { |
| |
$numrespclass = ' LC_numresponse_text'; |
| |
} |
| } |
} |
| my $name = 'HWVAL_'.$id; |
my $name = 'HWVAL_'.$id; |
| my $itemid = 'HWVAL_'.$partid.'_'.$id; |
my $itemid = 'HWVAL_'.$partid.'_'.$id; |
|
Line 470 sub start_textline {
|
Line 475 sub start_textline {
|
| . ' type="text" '.$readonly.' name="'. $name . '"' |
. ' type="text" '.$readonly.' name="'. $name . '"' |
| . ' id="' . $input_tag_id . '"' |
. ' id="' . $input_tag_id . '"' |
| . ' value="'. $oldresponse.'"' |
. ' value="'. $oldresponse.'"' |
| . ' class="LC_textline spellchecked" size="'.$size.'"'.$maxlength.' />'; |
. ' class="LC_textline spellchecked'.$numrespclass.'" size="'.$size.'"'.$maxlength.' />'; |
| |
|
| $result .= &spellcheck_onblur($itemid, $spellcheck); |
$result .= &spellcheck_onblur($itemid, $spellcheck); |
| if (($Apache::inputtags::status['-1'] eq 'CAN_ANSWER') && |
if (($Apache::inputtags::status['-1'] eq 'CAN_ANSWER') && |
![[BACK]](/icons/back.gif){kind=icon}
Return to inputtags.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework