version 1.115, 2008/08/26 03:18:29
|
version 1.117, 2008/11/10 14:11:16
|
Line 26
|
Line 26
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
|
|
|
=head1 NAME |
|
|
|
Apache::edit - edit mode helpers |
|
|
|
=head1 SYNOPSIS |
|
|
|
Invoked by many homework and xml related modules. |
|
|
|
&Apache::edit::SUBROUTINENAME(ARGUMENTS); |
|
|
|
=head1 INTRODUCTION |
|
|
|
This module outputs HTML syntax helpful for the rendering of edit |
|
mode interfaces. |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=head1 HANDLER SUBROUTINE |
|
|
|
There is no handler subroutine. |
|
|
|
=head1 OTHER SUBROUTINES |
|
|
|
=over 4 |
|
|
|
=item * |
|
|
|
initialize_edit() : initialize edit (set colordepth to zero) |
|
|
|
=item * |
|
|
|
tag_start($target,$token,$description) : provide deletion and insertion lists |
|
for the manipulation of a start tag; return a scalar string |
|
|
|
=item * |
|
|
|
tag_end($target,$token,$description) : ending syntax corresponding to |
|
&tag_start. return a scalar string. |
|
|
|
=item * |
|
|
|
start_table($token) : start table; update colordepth; return scalar string. |
|
|
|
=item * |
|
|
|
end_table() : reduce color depth; end table; return scalar string |
|
|
|
=item * |
|
|
|
start_spanning_row() : start a new table row spanning the 'edit' environment. |
|
|
|
=item * |
|
|
|
start_row() : start a new table row and element. |
|
|
|
=item * |
|
|
|
end_row() : end current table element and row. |
|
|
|
=item * |
|
|
|
movebuttons($target,$token) : move-up and move-down buttons; return scalar |
|
string |
|
|
|
=item * |
|
|
|
deletelist($target,$token) : provide a yes option in an HTML select element; |
|
return scalar string |
|
|
|
=item * |
|
|
|
handle_delete($space,$target,$token,$tagstack,$parstack,$parser,$safeeval, |
|
$style) : respond to a user delete request by passing relevant stack |
|
and array information to various rendering functions; return a scalar string |
|
|
|
=item * |
|
|
|
get_insert_list($token) : provide an insertion list based on possibilities |
|
from lonxml; return a scalar string |
|
|
|
=item * |
|
|
|
insertlist($target,$token) : api that uses get_insert_list; |
|
return a scalar string |
|
|
|
=item * |
|
|
|
handleinsert($token) : provide an insertion list based on possibilities |
|
from lonxml; return a scalar string |
|
|
|
=item * |
|
|
|
get_insert_list($token) : provide an insertion list based on possibilities |
|
from lonxml; return a scalar string |
|
|
|
=item * |
|
browse($elementname) : provide a link which will open up the filesystem |
|
browser (lonindexer) and, once a file is selected, place the result in |
|
the form element $elementname. |
|
|
|
=item * |
|
search($elementname) : provide a link which will open up the filesystem |
|
searcher (lonsearchcat) and, once a file is selected, place the result in |
|
the form element $elementname. |
|
|
|
=item * |
|
editline(tag,data,description,size): Provide a <input type="text" ../> for |
|
single-line text entry. This is to be used for text enclosed by tags, not |
|
arguements/parameters associated with a tag. |
|
|
|
=back |
|
|
|
incomplete... |
|
|
|
=cut |
|
|
package Apache::edit; |
package Apache::edit; |
|
|
use strict; |
use strict; |
Line 61 sub tag_start {
|
Line 178 sub tag_start {
|
if (!$description) { $description="<$tag>"; } |
if (!$description) { $description="<$tag>"; } |
} |
} |
$result.= &start_table($token)."<tr><td>$description</td> |
$result.= &start_table($token)."<tr><td>$description</td> |
<td>Delete". |
<td>".&mt('Delete?').' '. |
&deletelist($target,$token) |
&deletelist($target,$token) |
."</td> |
."</td> |
<td>". |
<td>". |
Line 145 sub deletelist {
|
Line 262 sub deletelist {
|
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $result = "<select name=\"delete_$Apache::lonxml::curdepth\"> |
my $result = "<select name=\"delete_$Apache::lonxml::curdepth\"> |
<option></option> |
<option></option> |
<option>Yes</option> |
<option>".&mt('yes')."</option> |
</select>"; |
</select>"; |
return $result; |
return $result; |
} |
} |
Line 215 sub innerinsertlist {
|
Line 332 sub innerinsertlist {
|
if ($target eq 'edit') { |
if ($target eq 'edit') { |
my $optionlist= &get_insert_list($tagname); |
my $optionlist= &get_insert_list($tagname); |
if ($optionlist) { |
if ($optionlist) { |
$result = "Insert: |
$result = &mt('Insert:')." |
<select name=\"insert$after\_$Apache::lonxml::curdepth\"> |
<select name=\"insert$after\_$Apache::lonxml::curdepth\"> |
$optionlist |
$optionlist |
</select>" |
</select>" |
Line 740 sub checked_arg {
|
Line 857 sub checked_arg {
|
$text=$option; |
$text=$option; |
$value='value="'.$option.'"'; |
$value='value="'.$option.'"'; |
} |
} |
$result.="<nobr><label><input type='checkbox' $value name='". |
$result.="<nobr><label><input type=\"checkbox\" $value name=\"". |
&html_element_name($name)."'"; |
&html_element_name($name)."\""; |
foreach my $selected (split(/,/,$allselected)) { |
foreach my $selected (split(/,/,$allselected)) { |
if ( $selected eq $option ) { |
if ( $selected eq $option ) { |
$result.=" checked='checked' "; |
$result.=" checked=\"checked\" "; |
last; |
last; |
} |
} |
} |
} |
Line 780 sub select_arg {
|
Line 897 sub select_arg {
|
$value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"'; |
$value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"'; |
} |
} |
if ( $selected eq $option ) { |
if ( $selected eq $option ) { |
$optionlist.="<option $value selected=\"selected\">$text</option>\n"; |
$optionlist.="<option $value selected=\"selected\">".&mt($text)."</option>\n"; |
} else { |
} else { |
$optionlist.="<option $value >$text</option>\n"; |
$optionlist.="<option $value >".&mt($text)."</option>\n"; |
} |
} |
} |
} |
$result.='<nobr>'.$description.' <select name="'. |
$result.='<nobr>'.&mt($description).' <select name="'. |
&html_element_name($name).'" '.&element_change_detection().' > |
&html_element_name($name).'" '.&element_change_detection().' > |
'.$optionlist.' |
'.$optionlist.' |
</select></nobr>'; |
</select></nobr>'; |
Line 974 ENDBUTTON
|
Line 1091 ENDBUTTON
|
1; |
1; |
__END__ |
__END__ |
|
|
=head1 NAME |
|
|
|
Apache::edit - edit mode helpers |
|
|
|
=head1 SYNOPSIS |
|
|
|
Invoked by many homework and xml related modules. |
|
|
|
&Apache::edit::SUBROUTINENAME(ARGUMENTS); |
|
|
|
=head1 INTRODUCTION |
|
|
|
This module outputs HTML syntax helpful for the rendering of edit |
|
mode interfaces. |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=head1 HANDLER SUBROUTINE |
|
|
|
There is no handler subroutine. |
|
|
|
=head1 OTHER SUBROUTINES |
|
|
|
=over 4 |
|
|
|
=item * |
|
|
|
initialize_edit() : initialize edit (set colordepth to zero) |
|
|
|
=item * |
|
|
|
tag_start($target,$token,$description) : provide deletion and insertion lists |
|
for the manipulation of a start tag; return a scalar string |
|
|
|
=item * |
|
|
|
tag_end($target,$token,$description) : ending syntax corresponding to |
|
&tag_start. return a scalar string. |
|
|
|
=item * |
|
|
|
start_table($token) : start table; update colordepth; return scalar string. |
|
|
|
=item * |
|
|
|
end_table() : reduce color depth; end table; return scalar string |
|
|
|
=item * |
|
|
|
start_spanning_row() : start a new table row spanning the 'edit' environment. |
|
|
|
=item * |
|
|
|
start_row() : start a new table row and element. |
|
|
|
=item * |
|
|
|
end_row() : end current table element and row. |
|
|
|
=item * |
|
|
|
movebuttons($target,$token) : move-up and move-down buttons; return scalar |
|
string |
|
|
|
=item * |
|
|
|
deletelist($target,$token) : provide a yes option in an HTML select element; |
|
return scalar string |
|
|
|
=item * |
|
|
|
handle_delete($space,$target,$token,$tagstack,$parstack,$parser,$safeeval, |
|
$style) : respond to a user delete request by passing relevant stack |
|
and array information to various rendering functions; return a scalar string |
|
|
|
=item * |
|
|
|
get_insert_list($token) : provide an insertion list based on possibilities |
|
from lonxml; return a scalar string |
|
|
|
=item * |
|
|
|
insertlist($target,$token) : api that uses get_insert_list; |
|
return a scalar string |
|
|
|
=item * |
|
|
|
handleinsert($token) : provide an insertion list based on possibilities |
|
from lonxml; return a scalar string |
|
|
|
=item * |
|
|
|
get_insert_list($token) : provide an insertion list based on possibilities |
|
from lonxml; return a scalar string |
|
|
|
=item * |
|
browse($elementname) : provide a link which will open up the filesystem |
|
browser (lonindexer) and, once a file is selected, place the result in |
|
the form element $elementname. |
|
|
|
=item * |
|
search($elementname) : provide a link which will open up the filesystem |
|
searcher (lonsearchcat) and, once a file is selected, place the result in |
|
the form element $elementname. |
|
|
|
=item * |
|
editline(tag,data,description,size): Provide a <input type="text" ../> for |
|
single-line text entry. This is to be used for text enclosed by tags, not |
|
arguements/parameters associated with a tag. |
|
|
|
=back |
|
|
|
incomplete... |
|
|
|
=cut |
|