version 1.120, 2008/12/10 21:45:31
|
version 1.123.4.1, 2010/01/31 00:47:41
|
Line 26
|
Line 26
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
|
|
|
=pod |
|
|
=head1 NAME |
=head1 NAME |
|
|
Apache::edit - edit mode helpers |
Apache::edit - edit mode helpers |
Line 612 sub insert_numericalhint {
|
Line 614 sub insert_numericalhint {
|
</numericalhint>'; |
</numericalhint>'; |
} |
} |
|
|
|
sub insert_reactionhint { |
|
return ' |
|
<reactionhint> |
|
</reactionhint>'; |
|
} |
|
|
|
sub insert_organichint { |
|
return ' |
|
<organichint> |
|
</organichint>'; |
|
} |
|
|
sub insert_stringhint { |
sub insert_stringhint { |
return ' |
return ' |
<stringhint> |
<stringhint> |
Line 871 sub select_arg {
|
Line 885 sub select_arg {
|
my $result; |
my $result; |
my $optionlist=""; |
my $optionlist=""; |
my $selected=$token->[2]{$name}; |
my $selected=$token->[2]{$name}; |
foreach my $option (@$list) { |
if (ref($list) eq 'ARRAY') { |
my ($text,$value); |
foreach my $option (@{$list}) { |
if ( ref($option) eq 'ARRAY') { |
my ($text,$value); |
$value='value="'.&HTML::Entities::encode($$option[0]).'"'; |
if (ref($option) eq 'ARRAY') { |
$text=$$option[1]; |
$value='value="'.&HTML::Entities::encode($option->[0]).'"'; |
$option=$$option[0]; |
$text=$option->[1]; |
} else { |
$option=$option->[0]; |
$text=$option; |
} else { |
$value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"'; |
$text=$option; |
} |
$value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"'; |
if ( $selected eq $option ) { |
} |
$optionlist.="<option $value selected=\"selected\">".&mt($text)."</option>\n"; |
if ( $selected eq $option ) { |
} else { |
$optionlist.="<option $value selected=\"selected\">".&mt($text)."</option>\n"; |
$optionlist.="<option $value >".&mt($text)."</option>\n"; |
} else { |
} |
$optionlist.="<option $value >".&mt($text)."</option>\n"; |
|
} |
|
} |
} |
} |
$result.='<span class="LC_nobreak">'.&mt($description).' <select name="'. |
$result.='<span class="LC_nobreak">'.&mt($description).' <select name="'. |
&html_element_name($name).'" '.&element_change_detection().' > |
&html_element_name($name).'" '.&element_change_detection().' > |
Line 900 sub select_or_text_arg {
|
Line 916 sub select_or_text_arg {
|
my $optionlist=""; |
my $optionlist=""; |
my $found=0; |
my $found=0; |
my $selected=$token->[2]{$name}; |
my $selected=$token->[2]{$name}; |
foreach my $option (@$list) { |
if (ref($list) eq 'ARRAY') { |
my ($text,$value); |
foreach my $option (@{$list}) { |
if ( ref($option) eq 'ARRAY') { |
my ($text,$value); |
$value='value="'.&HTML::Entities::encode($$option[0]).'"'; |
if (ref($option) eq 'ARRAY') { |
$text=$$option[1]; |
$value='value="'.&HTML::Entities::encode($option->[0]).'"'; |
$option=$$option[0]; |
$text=$option->[1]; |
} else { |
$option=$option->[0]; |
$text=$option; |
} else { |
$value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"'; |
$text=$option; |
} |
$value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"'; |
if ( $selected eq $option ) { |
} |
$optionlist.="<option $value selected=\"selected\">$text</option>\n"; |
if ( $selected eq $option ) { |
$found=1; |
$optionlist.="<option $value selected=\"selected\">$text</option>\n"; |
} else { |
$found=1; |
$optionlist.="<option $value>$text</option>\n"; |
} else { |
} |
$optionlist.="<option $value>$text</option>\n"; |
|
} |
|
} |
} |
} |
$optionlist.="<option value=\"TYPEDINVALUE\"". |
$optionlist.="<option value=\"TYPEDINVALUE\"". |
((!$found)?' selected="selected"':''). |
((!$found)?' selected="selected"':''). |
Line 1023 sub entercoord {
|
Line 1041 sub entercoord {
|
} |
} |
|
|
sub deletecoorddata { |
sub deletecoorddata { |
&Apache::lonnet::delenv("imagechoice\\."); |
&Apache::lonnet::delenv('imagechoice.'); |
} |
} |
|
|
#----------------------------------------------------- browse |
#----------------------------------------------------- browse |