version 1.41, 2002/11/11 22:37:23
|
version 1.46, 2003/02/13 23:53:33
|
Line 159 sub handle_delete {
|
Line 159 sub handle_delete {
|
} |
} |
if (!$result) { |
if (!$result) { |
my $endtag='/'.$token->[1]; |
my $endtag='/'.$token->[1]; |
my $bodytext=&Apache::lonxml::get_all_text($endtag,$$parser[$#$parser]); |
my $bodytext=&Apache::lonxml::get_all_text($endtag,$parser); |
$$parser['-1']->get_token(); |
$$parser['-1']->get_token(); |
&Apache::lonxml::debug("Deleting :$bodytext: for $token->[1]"); |
&Apache::lonxml::debug("Deleting :$bodytext: for $token->[1]"); |
&Apache::lonxml::end_tag($tagstack,$parstack,$token); |
&Apache::lonxml::end_tag($tagstack,$parstack,$token); |
Line 327 sub insert_radiobuttonresponse {
|
Line 327 sub insert_radiobuttonresponse {
|
</radiobuttonresponse>'; |
</radiobuttonresponse>'; |
} |
} |
|
|
|
sub insert_rankresponse { |
|
return ' |
|
<rankresponse max="10"> |
|
<foilgroup options=""> |
|
</foilgroup> |
|
<hintgroup> |
|
</hintgroup> |
|
</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 343 sub insert_numericalhint {
|
Line 365 sub insert_numericalhint {
|
</numericalhint>'; |
</numericalhint>'; |
} |
} |
|
|
|
sub insert_stringhint { |
|
return ' |
|
<stringhint> |
|
</stringhint>'; |
|
} |
|
|
|
sub insert_formulahint { |
|
return ' |
|
<formulahint> |
|
</formulahint>'; |
|
} |
|
|
sub insert_radiobuttonhint { |
sub insert_radiobuttonhint { |
return ' |
return ' |
<radiobuttonhint> |
<radiobuttonhint> |
Line 452 sub text_arg {
|
Line 486 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 476 sub select_arg {
|
Line 510 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 506 sub select_or_text_arg {
|
Line 540 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 { |
Line 518 sub select_or_text_arg {
|
Line 552 sub select_or_text_arg {
|
#----------------------------------------------------- browse |
#----------------------------------------------------- browse |
sub browse { |
sub browse { |
# insert a link to call up the filesystem browser (lonindexer) |
# insert a link to call up the filesystem browser (lonindexer) |
$_ = shift; |
my ($id, $mode) = @_; |
my $form = 'lonhomework'; |
my $form = 'lonhomework'; |
my $element = &Apache::lonnet::escape("$Apache::lonxml::curdepth.$_"); |
my $element; |
|
if (! defined($mode) || $mode eq 'attribute') { |
|
$element = &Apache::lonnet::escape("$Apache::lonxml::curdepth.$id"); |
|
} elsif ($mode eq 'textnode') { # for data between <tag> ... </tag> |
|
$element = &Apache::lonnet::escape('homework_edit_'. |
|
$Apache::lonxml::curdepth); |
|
} |
my $result = <<"ENDBUTTON"; |
my $result = <<"ENDBUTTON"; |
<a href=\"javascript:openbrowser('$form','$element')\"\>Browse</a> |
<a href=\"javascript:openbrowser('$form','$element')\"\>Browse</a> |
ENDBUTTON |
ENDBUTTON |