version 1.86, 2004/08/19 21:01:54
|
version 1.90, 2005/03/10 02:33:30
|
Line 68 sub tag_start {
|
Line 68 sub tag_start {
|
# "</tr><tr><td colspan=\"3\">\n"; |
# "</tr><tr><td colspan=\"3\">\n"; |
my @help = Apache::lonxml::helpinfo($token); |
my @help = Apache::lonxml::helpinfo($token); |
if ($help[0]) { |
if ($help[0]) { |
$result .= '<td align="right" valign="top">' . |
$result .= '</td><td align="right" valign="top">' . |
Apache::loncommon::help_open_topic(@help) . |
Apache::loncommon::help_open_topic(@help); |
'</td>'; |
} else { $result .= "</td><td> "; } |
} else { $result .= "<td> </td>"; } |
|
$result .= &end_row().&start_spanning_row(); |
$result .= &end_row().&start_spanning_row(); |
} |
} |
return $result; |
return $result; |
Line 191 sub get_insert_list {
|
Line 190 sub get_insert_list {
|
$descrip."</option>\n"; |
$descrip."</option>\n"; |
} |
} |
foreach my $option (sort(keys(%options))) {$result.=$options{$option};} |
foreach my $option (sort(keys(%options))) {$result.=$options{$option};} |
if ($result) { $result='<option selected="on"></option>'.$result; } |
if ($result) { $result='<option selected="selected"></option>'.$result; } |
} |
} |
return $result; |
return $result; |
} |
} |
Line 282 sub insert_responseparam {
|
Line 281 sub insert_responseparam {
|
<responseparam />'; |
<responseparam />'; |
} |
} |
|
|
|
sub insert_parameter { |
|
return ' |
|
<parameter />'; |
|
} |
|
|
sub insert_formularesponse { |
sub insert_formularesponse { |
return ' |
return ' |
<formularesponse answer="" samples=""> |
<formularesponse answer="" samples=""> |
Line 296 sub insert_formularesponse {
|
Line 300 sub insert_formularesponse {
|
sub insert_numericalresponse { |
sub insert_numericalresponse { |
return ' |
return ' |
<numericalresponse answer=""> |
<numericalresponse answer=""> |
|
<responseparam type="tolerance" default="5%" name="tol" description="Numerical Tolerance" /> |
|
<responseparam name="sig" type="int_range,0-16" default="0,15" description="Significant Figures" /> |
<textline /> |
<textline /> |
<hintgroup> |
<hintgroup> |
<startouttext /><endouttext /> |
<startouttext /><endouttext /> |
Line 324 sub insert_imageresponse {
|
Line 330 sub insert_imageresponse {
|
return ' |
return ' |
<imageresponse max="1"> |
<imageresponse max="1"> |
<foilgroup> |
<foilgroup> |
|
<foil> |
|
</foil> |
</foilgroup> |
</foilgroup> |
<hintgroup> |
<hintgroup> |
<startouttext /><endouttext /> |
<startouttext /><endouttext /> |
Line 335 sub insert_optionresponse {
|
Line 343 sub insert_optionresponse {
|
return ' |
return ' |
<optionresponse max="10"> |
<optionresponse max="10"> |
<foilgroup options=""> |
<foilgroup options=""> |
|
<foil> |
|
<startouttext /><endouttext /> |
|
</foil> |
</foilgroup> |
</foilgroup> |
<hintgroup> |
<hintgroup> |
<startouttext /><endouttext /> |
<startouttext /><endouttext /> |
Line 362 sub insert_radiobuttonresponse {
|
Line 373 sub insert_radiobuttonresponse {
|
return ' |
return ' |
<radiobuttonresponse max="10"> |
<radiobuttonresponse max="10"> |
<foilgroup> |
<foilgroup> |
|
<foil> |
|
<startouttext /><endouttext /> |
|
</foil> |
</foilgroup> |
</foilgroup> |
<hintgroup> |
<hintgroup> |
<startouttext /><endouttext /> |
<startouttext /><endouttext /> |
Line 383 sub insert_rankresponse {
|
Line 397 sub insert_rankresponse {
|
return ' |
return ' |
<rankresponse max="10"> |
<rankresponse max="10"> |
<foilgroup options=""> |
<foilgroup options=""> |
|
<foil> |
|
<startouttext /><endouttext /> |
|
</foil> |
</foilgroup> |
</foilgroup> |
<hintgroup> |
<hintgroup> |
<startouttext /><endouttext /> |
<startouttext /><endouttext /> |
Line 396 sub insert_matchresponse {
|
Line 413 sub insert_matchresponse {
|
<foilgroup options=""> |
<foilgroup options=""> |
<itemgroup> |
<itemgroup> |
</itemgroup> |
</itemgroup> |
|
<foil> |
|
<startouttext /><endouttext /> |
|
</foil> |
</foilgroup> |
</foilgroup> |
<hintgroup> |
<hintgroup> |
<startouttext /><endouttext /> |
<startouttext /><endouttext /> |
Line 408 sub insert_displaytitle { return '<dis
|
Line 428 sub insert_displaytitle { return '<dis
|
sub insert_hintpart { |
sub insert_hintpart { |
return ' |
return ' |
<hintpart on="default"> |
<hintpart on="default"> |
<startouttext/> |
<startouttext/><endouttext /> |
<endouttext /> |
|
</hintpart>'; |
</hintpart>'; |
} |
} |
|
|
Line 608 sub checked_arg {
|
Line 627 sub checked_arg {
|
&html_element_name($name)."'"; |
&html_element_name($name)."'"; |
foreach my $selected (split(/,/,$allselected)) { |
foreach my $selected (split(/,/,$allselected)) { |
if ( $selected eq $option ) { |
if ( $selected eq $option ) { |
$result.=" checked='on' "; |
$result.=" checked='checked' "; |
last; |
last; |
} |
} |
} |
} |
Line 643 sub select_arg {
|
Line 662 sub select_arg {
|
$value='value="'.$option.'"'; |
$value='value="'.$option.'"'; |
} |
} |
if ( $selected eq $option ) { |
if ( $selected eq $option ) { |
$optionlist.="<option $value selected=\"on\">$text</option>\n"; |
$optionlist.="<option $value selected=\"selected\">$text</option>\n"; |
} else { |
} else { |
$optionlist.="<option $value >$text</option>\n"; |
$optionlist.="<option $value >$text</option>\n"; |
} |
} |
Line 672 sub select_or_text_arg {
|
Line 691 sub select_or_text_arg {
|
$value='value="'.$option.'"'; |
$value='value="'.$option.'"'; |
} |
} |
if ( $selected eq $option ) { |
if ( $selected eq $option ) { |
$optionlist.="<option $value selected=\"on\">$text</option>\n"; |
$optionlist.="<option $value selected=\"selected\">$text</option>\n"; |
$found=1; |
$found=1; |
} else { |
} else { |
$optionlist.="<option $value>$text</option>\n"; |
$optionlist.="<option $value>$text</option>\n"; |
} |
} |
} |
} |
$optionlist.="<option value=\"TYPEDINVALUE\"". |
$optionlist.="<option value=\"TYPEDINVALUE\"". |
((!$found)?' selected="on"':''). |
((!$found)?' selected="selected"':''). |
">".&mt('Type-in value')."</option>\n"; |
">".&mt('Type-in value')."</option>\n"; |
# |
# |
my $element=&html_element_name($name); |
my $element=&html_element_name($name); |