version 1.54, 2003/06/09 22:42:49
|
version 1.57.2.1, 2003/09/10 22:03:40
|
Line 75 sub tag_end {
|
Line 75 sub tag_end {
|
my ($target,$token,$description) = @_; |
my ($target,$token,$description) = @_; |
my $result=''; |
my $result=''; |
if ($target eq 'edit') { |
if ($target eq 'edit') { |
my $tag=$token->[1]; |
$result.="</td></tr>".&end_table()."\n"; |
if (!defined($description)) { |
|
$result.="</td></tr><tr><td></$tag></td><td colspan=\"2\"> </td>"; |
|
} else { |
|
if ($description ne '') { $result.="</td></tr><tr><td>$description</td><td colspan=\"2\"> </td>"; } |
|
} |
|
$result.="</tr>".&end_table()."\n"; |
|
} |
} |
return $result; |
return $result; |
} |
} |
Line 524 sub text_arg {
|
Line 518 sub text_arg {
|
my $arg=$token->[2]{$name}; |
my $arg=$token->[2]{$name}; |
$result=$description.' <input name="'.&html_element_name($name). |
$result=$description.' <input name="'.&html_element_name($name). |
'" type="text" value="'.$arg.'" size="'.$size.'" />'; |
'" type="text" value="'.$arg.'" size="'.$size.'" />'; |
return $result; |
return '<nobr>'.$result.'</nobr>'; |
} |
} |
|
|
sub select_arg { |
sub select_arg { |
Line 532 sub select_arg {
|
Line 526 sub select_arg {
|
my $result; |
my $result; |
my $optionlist=""; |
my $optionlist=""; |
my $selected=$token->[2]{$name}; |
my $selected=$token->[2]{$name}; |
|
&Apache::lonxml::error("Wha $selected"); |
foreach my $option (@$list) { |
foreach my $option (@$list) { |
my $value; |
my ($text,$value); |
if ( ref($option) eq 'ARRAY') { |
if ( ref($option) eq 'ARRAY') { |
$value='value="'.$$option[0].'"'; |
$value='value="'.$$option[0].'"'; |
$option=$$option[1]; |
$text=$$option[1]; |
|
$option=$$option[0]; |
} else { |
} else { |
|
$text=$option; |
$value='value="'.$option.'"'; |
$value='value="'.$option.'"'; |
} |
} |
if ( $selected eq $option ) { |
if ( $selected eq $option ) { |
$optionlist.="<option $value selected=\"on\">$option</option>\n"; |
$optionlist.="<option $value selected=\"on\">$text</option>\n"; |
} else { |
} else { |
$optionlist.="<option $value >$option</option>\n"; |
$optionlist.="<option $value >$text</option>\n"; |
} |
} |
} |
} |
$result.=$description.' <select name="'.&html_element_name($name). |
$result.='<nobr>'.$description.' <select name="'. |
'"> |
&html_element_name($name).'"> |
'.$optionlist.' |
'.$optionlist.' |
</select>'; |
</select></nobr>'; |
return $result; |
return $result; |
} |
} |
|
|
Line 560 sub select_or_text_arg {
|
Line 557 sub select_or_text_arg {
|
my $found=0; |
my $found=0; |
my $selected=$token->[2]{$name}; |
my $selected=$token->[2]{$name}; |
foreach my $option (@$list) { |
foreach my $option (@$list) { |
my $value; |
my ($text,$value); |
if ( ref($option) eq 'ARRAY') { |
if ( ref($option) eq 'ARRAY') { |
$value='value="'.$$option[0].'"'; |
$value='value="'.$$option[0].'"'; |
$option=$$option[1]; |
$text=$$option[1]; |
|
$option=$$option[0]; |
} else { |
} else { |
|
$text=$option; |
$value='value="'.$option.'"'; |
$value='value="'.$option.'"'; |
} |
} |
if ( $selected eq $option ) { |
if ( $selected eq $option ) { |
$optionlist.="<option $value selected=\"on\">$option</option>\n"; |
$optionlist.="<option $value selected=\"on\">$text</option>\n"; |
$found=1; |
$found=1; |
} else { |
} else { |
$optionlist.="<option $value>$option</option>\n"; |
$optionlist.="<option $value>$text</option>\n"; |
} |
} |
} |
} |
$optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n"; |
$optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n"; |
Line 583 sub select_or_text_arg {
|
Line 582 sub select_or_text_arg {
|
} else { |
} else { |
$result.=&text_arg($description,$name,$token,$size); |
$result.=&text_arg($description,$name,$token,$size); |
} |
} |
return $result; |
return '<nobr>'.$result.'</nobr>'; |
} |
} |
|
|
#----------------------------------------------------- image coordinates |
#----------------------------------------------------- image coordinates |
Line 657 sub browse {
|
Line 656 sub browse {
|
$Apache::lonxml::curdepth); |
$Apache::lonxml::curdepth); |
} |
} |
my $result = <<"ENDBUTTON"; |
my $result = <<"ENDBUTTON"; |
<a href=\"javascript:openbrowser('$form','$element')\"\>Browse</a> |
<a href=\"javascript:openbrowser('$form','$element')\"\>Select</a> |
ENDBUTTON |
ENDBUTTON |
return $result; |
return $result; |
} |
} |