version 1.333.2.12, 2021/12/12 21:21:44
|
version 1.333.2.15, 2024/07/01 23:09:00
|
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 469 sub start_textline {
|
Line 474 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') && |
(($tagstack->[-2] eq 'formularesponse') || ($tagstack->[-2] eq 'mathresponse')) && |
(((($tagstack->[-2] eq 'formularesponse') || ($tagstack->[-2] eq 'mathresponse')) && |
(&Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoffeditor') ne 'yes')) { |
(&Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoffeditor') ne 'yes')) || |
|
(($tagstack->[-2] eq 'customresponse') && |
|
(&Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoffeditor') eq 'no')))) { |
$result.=&edit_mathresponse_button($input_tag_id); |
$result.=&edit_mathresponse_button($input_tag_id); |
} |
} |
} |
} |
Line 656 sub file_selector {
|
Line 663 sub file_selector {
|
$result .= &Apache::lonhtmlcommon::row_title($addfiles); |
$result .= &Apache::lonhtmlcommon::row_title($addfiles); |
my $constraints; |
my $constraints; |
if ($uploadedfiletypes ne '*') { |
if ($uploadedfiletypes ne '*') { |
|
my $showtypes = $uploadedfiletypes; |
|
if ($showtypes =~ /,/) { |
|
my $conjunc = &mt('or'); |
|
$showtypes =~ s/,([^,]+)$/ $conjunc $1/; |
|
} |
$constraints = |
$constraints = |
&mt('Allowed filetypes: [_1]','<b>'.$uploadedfiletypes.'</b>').'<br />'; |
&mt('Allowed filetypes: [_1]','<b>'.$showtypes.'</b>').'<br />'; |
} |
} |
if ($maxfilesize) { |
if ($maxfilesize) { |
$constraints .= &mt('Combined size of all files not to exceed: [_1] MB.', |
$constraints .= &mt('Combined size of all files not to exceed: [_1] MB.', |