version 1.43, 2003/01/19 08:13:54
|
version 1.44, 2003/01/28 00:14:17
|
Line 337 sub insert_rankresponse {
|
Line 337 sub insert_rankresponse {
|
</rankresponse>'; |
</rankresponse>'; |
} |
} |
|
|
|
sub insert_matchresponse { |
|
return ' |
|
<matchresponse max="10"> |
|
<foilgroup options=""> |
|
<itemgroup> |
|
</itemgroup> |
|
</foilgroup> |
|
<hintgroup> |
|
</hintgroup> |
|
</matchresponse>'; |
|
} |
|
|
sub insert_displayduedate { return '<displayduedate />'; } |
sub insert_displayduedate { return '<displayduedate />'; } |
sub insert_displaytitle { return '<displaytitle />'; } |
sub insert_displaytitle { return '<displaytitle />'; } |
sub insert_hintpart { |
sub insert_hintpart { |
Line 462 sub text_arg {
|
Line 474 sub text_arg {
|
my $result; |
my $result; |
if (!defined $size) { $size=20; } |
if (!defined $size) { $size=20; } |
my $arg=$token->[2]{$name}; |
my $arg=$token->[2]{$name}; |
$result=$description.'<input name="'."$Apache::lonxml::curdepth.$name". |
$result=$description.' <input name="'."$Apache::lonxml::curdepth.$name". |
'" type="text" value="'.$arg.'" size="'.$size.'" />'; |
'" type="text" value="'.$arg.'" size="'.$size.'" />'; |
return $result; |
return $result; |
} |
} |
Line 486 sub select_arg {
|
Line 498 sub select_arg {
|
$optionlist.="<option $value >$option</option>\n"; |
$optionlist.="<option $value >$option</option>\n"; |
} |
} |
} |
} |
$result.=$description.'<select name="'. |
$result.=$description.' <select name="'. |
"$Apache::lonxml::curdepth.$name".'"> |
"$Apache::lonxml::curdepth.$name".'"> |
'.$optionlist.' |
'.$optionlist.' |
</select>'; |
</select>'; |
Line 516 sub select_or_text_arg {
|
Line 528 sub select_or_text_arg {
|
} |
} |
$optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n"; |
$optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n"; |
if (($found) || (!$selected)) { |
if (($found) || (!$selected)) { |
$result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'"> |
$result.=$description.' <select name="'."$Apache::lonxml::curdepth.$name".'"> |
'.$optionlist.' |
'.$optionlist.' |
</select>'; |
</select>'; |
} else { |
} else { |