version 1.46, 2003/02/13 23:53:33
|
version 1.48, 2003/05/04 22:14:53
|
Line 448 sub get_new_args {
|
Line 448 sub get_new_args {
|
foreach my $arg (@args) { |
foreach my $arg (@args) { |
#just want the string that it was set to |
#just want the string that it was set to |
my $value=$token->[2]->{$arg}; |
my $value=$token->[2]->{$arg}; |
my $newvalue=$ENV{"form.$Apache::lonxml::curdepth.$arg"}; |
my $element=&html_element_name($arg); |
|
my $newvalue=$ENV{"form.$element"}; |
&Apache::lonxml::debug(" for:$arg: cur is :$value: new is :$newvalue:"); |
&Apache::lonxml::debug(" for:$arg: cur is :$value: new is :$newvalue:"); |
if ($value ne $newvalue) { |
if ($value ne $newvalue) { |
$token->[2]->{$arg}=$newvalue; |
$token->[2]->{$arg}=$newvalue; |
Line 481 sub rebuild_tag {
|
Line 482 sub rebuild_tag {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub html_element_name { |
|
my ($name) = @_; |
|
return $name.'_'.$Apache::lonxml::curdepth; |
|
} |
|
|
|
sub hidden_arg { |
|
my ($name,$token) = @_; |
|
my $result; |
|
my $arg=$token->[2]{$name}; |
|
$result='<input name="'.&html_element_name($name). |
|
'" type="hidden" value="'.$arg.'" />'; |
|
return $result; |
|
} |
|
|
sub text_arg { |
sub text_arg { |
my ($description,$name,$token,$size) = @_; |
my ($description,$name,$token,$size) = @_; |
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="'.&html_element_name($name). |
'" type="text" value="'.$arg.'" size="'.$size.'" />'; |
'" type="text" value="'.$arg.'" size="'.$size.'" />'; |
return $result; |
return $result; |
} |
} |
Line 510 sub select_arg {
|
Line 525 sub select_arg {
|
$optionlist.="<option $value >$option</option>\n"; |
$optionlist.="<option $value >$option</option>\n"; |
} |
} |
} |
} |
$result.=$description.' <select name="'. |
$result.=$description.' <select name="'.&html_element_name($name). |
"$Apache::lonxml::curdepth.$name".'"> |
'"> |
'.$optionlist.' |
'.$optionlist.' |
</select>'; |
</select>'; |
return $result; |
return $result; |
Line 540 sub select_or_text_arg {
|
Line 555 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="'.&html_element_name($name) |
|
.'"> |
'.$optionlist.' |
'.$optionlist.' |
</select>'; |
</select>'; |
} else { |
} else { |