version 1.71, 2014/05/05 17:40:54
|
version 1.72.2.1, 2018/06/08 11:57:01
|
Line 51 sub start_rankresponse {
|
Line 51 sub start_rankresponse {
|
$result=&Apache::response::meta_package_write('rankresponse'); |
$result=&Apache::response::meta_package_write('rankresponse'); |
} elsif ($target eq 'edit' ) { |
} elsif ($target eq 'edit' ) { |
$result.=&Apache::edit::start_table($token) |
$result.=&Apache::edit::start_table($token) |
.'<tr><td>'.&Apache::lonxml::description($token).'</td>' |
.'<tr><td>'.&Apache::loncommon::insert_folding_button() |
|
.&Apache::lonxml::description($token).'</td>' |
.'<td><span class="LC_nobreak">'.&mt('Delete?').' ' |
.'<td><span class="LC_nobreak">'.&mt('Delete?').' ' |
.&Apache::edit::deletelist($target,$token) |
.&Apache::edit::deletelist($target,$token) |
.'</span></td>' |
.'</span></td>' |
Line 409 sub displayfoils {
|
Line 410 sub displayfoils {
|
my $lastopt=$lastresponse{$name}; |
my $lastopt=$lastresponse{$name}; |
my $optionlist=''; |
my $optionlist=''; |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$optionlist = "<option></option>\n"; |
$optionlist = "<option value=\"\"></option>\n"; |
} |
} |
if ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') { |
if ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') { |
my $fieldname = $env{'request.symb'}.'&part_'.$Apache::inputtags::part.'&rankresponse'.'&HWVAL_'.$Apache::inputtags::response['-1'].':'.$temp; |
my $fieldname = $env{'request.symb'}.'&part_'.$Apache::inputtags::part.'&rankresponse'.'&HWVAL_'.$Apache::inputtags::response['-1'].':'.$temp; |
Line 419 sub displayfoils {
|
Line 420 sub displayfoils {
|
foreach $option (@whichopt) { |
foreach $option (@whichopt) { |
if ($option eq $lastopt) { |
if ($option eq $lastopt) { |
if ($target ne 'tex' ) { |
if ($target ne 'tex' ) { |
$optionlist.="<option selected=\"selected\">$option</option>\n"; |
$optionlist.="<option value=\"$option\" selected=\"selected\">$option</option>\n"; |
} elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') { |
} elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') { |
$optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option); |
$optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option); |
} |
} |
} else { |
} else { |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$optionlist.="<option>$option</option>\n"; |
$optionlist.="<option value=\"$option\">$option</option>\n"; |
} elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') { |
} elsif ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes') { |
$optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option); |
$optionlist .= &Apache::lonxml::print_pdf_add_combobox_option($option); |
} |
} |