version 1.111, 2007/09/10 23:00:05
|
version 1.118, 2008/11/18 19:14:28
|
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 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 |
|
|
|
=cut |
|
|
package Apache::edit; |
package Apache::edit; |
|
|
use strict; |
use strict; |
Line 61 sub tag_start {
|
Line 163 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 128 sub end_table {
|
Line 230 sub end_table {
|
return $result; |
return $result; |
} |
} |
|
|
sub start_spanning_row { return '<tr><td colspan="4" bgcolor="#DDDDDD">';} |
sub start_spanning_row { return '<tr><td colspan="5" bgcolor="#DDDDDD">';} |
sub start_row { return '<tr><td bgcolor="#DDDDDD">'; } |
sub start_row { return '<tr><td bgcolor="#DDDDDD">'; } |
sub end_row { return '</td></tr>'; } |
sub end_row { return '</td></tr>'; } |
|
|
Line 145 sub deletelist {
|
Line 247 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 317 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 577 sub element_change_detection {
|
Line 679 sub element_change_detection {
|
} |
} |
|
|
sub submit_ask_anyway { |
sub submit_ask_anyway { |
return ' onclick="still_ask=true;" '; |
my ($extra_action) = @_; |
|
return ' onclick="still_ask=true;'.$extra_action.'" '; |
} |
} |
|
|
sub textarea_sizes { |
sub textarea_sizes { |
Line 597 sub textarea_sizes {
|
Line 700 sub textarea_sizes {
|
sub editline { |
sub editline { |
my ($tag,$data,$description,$size)=@_; |
my ($tag,$data,$description,$size)=@_; |
$data=&HTML::Entities::encode($data,'<>&"'); |
$data=&HTML::Entities::encode($data,'<>&"'); |
if ($description) { $description="<br />".$description."<br />"; } |
if ($description) { $description=$description."<br />"; } |
my $change_code = &element_change_detection(); |
my $change_code = &element_change_detection(); |
my $result = <<"END"; |
my $result = <<"END"; |
$description |
$description |
Line 619 sub editfield {
|
Line 722 sub editfield {
|
if ($cols > 80) { $cols = 80; } |
if ($cols > 80) { $cols = 80; } |
if ($cols < $minwidth ) { $cols = $minwidth; } |
if ($cols < $minwidth ) { $cols = $minwidth; } |
if ($rows < $minheight) { $rows = $minheight; } |
if ($rows < $minheight) { $rows = $minheight; } |
if ($description) { $description="<br />".$description."<br />"; } |
if ($description) { $description=$description."<br />"; } |
if ($usehtmlarea) { |
if ($usehtmlarea) { |
&Apache::lonhtmlcommon::add_htmlareafields('homework_edit_'. |
&Apache::lonhtmlcommon::add_htmlareafields('homework_edit_'. |
$Apache::lonxml::curdepth); |
$Apache::lonxml::curdepth); |
Line 739 sub checked_arg {
|
Line 842 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 779 sub select_arg {
|
Line 882 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 879 sub entercoords {
|
Line 982 sub entercoords {
|
$data{"imagechoice.$id.formwidth"}=$width.'_'. |
$data{"imagechoice.$id.formwidth"}=$width.'_'. |
$Apache::edit::bgimgsrccurdepth; |
$Apache::edit::bgimgsrccurdepth; |
} |
} |
&Apache::lonnet::appenv(%data); |
&Apache::lonnet::appenv(\%data); |
my $text="Click Coordinates"; |
my $text="Click Coordinates"; |
my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>'; |
my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>'; |
return $result; |
return $result; |
Line 912 sub entercoord {
|
Line 1015 sub entercoord {
|
$data{"imagechoice.$id.formwidth"}=$width.'_'. |
$data{"imagechoice.$id.formwidth"}=$width.'_'. |
$Apache::edit::bgimgsrccurdepth; |
$Apache::edit::bgimgsrccurdepth; |
} |
} |
&Apache::lonnet::appenv(%data); |
&Apache::lonnet::appenv(\%data); |
my $text="Enter Coordinates"; |
my $text="Enter Coordinates"; |
if ($type eq 'polygon') { $text='Create Polygon Data'; } |
if ($type eq 'polygon') { $text='Create Polygon Data'; } |
my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>'; |
my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>'; |
Line 973 ENDBUTTON
|
Line 1076 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 |
|