version 1.25, 2001/12/04 14:47:33
|
version 1.35, 2002/07/17 18:06:18
|
Line 26
|
Line 26
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# 3/20 Guy |
# 3/20 Guy |
|
# 01/10/02 Matthew |
|
# 03/06/02 Matthew |
package Apache::edit; |
package Apache::edit; |
|
|
use strict; |
use strict; |
use Apache::lonnet; |
use Apache::lonnet(); |
|
use HTML::Entities(); |
|
|
# Global Vars |
# Global Vars |
# default list of colors to use in editing |
# default list of colors to use in editing |
Line 55 sub tag_start {
|
Line 58 sub tag_start {
|
&deletelist($target,$token) |
&deletelist($target,$token) |
."</td> |
."</td> |
<td>". |
<td>". |
&insertlist($target,$token). |
&insertlist($target,$token).&end_row().&start_spanning_row(); |
"</td> |
#<td>". |
</tr><tr><td colspan=\"3\">\n"; |
|
#<td>". |
|
# &movebuttons($target,$token). |
# &movebuttons($target,$token). |
# "</tr><tr><td colspan=\"3\">\n"; |
# "</tr><tr><td colspan=\"3\">\n"; |
} |
} |
Line 105 sub end_table {
|
Line 106 sub end_table {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub start_spanning_row { return '<tr><td colspan="3">';} |
|
sub start_row { return '<tr><td>'; } |
|
sub end_row { return '</td></tr>'; } |
|
|
sub movebuttons { |
sub movebuttons { |
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $result='<input type="submit" name="moveup.'. |
my $result='<input type="submit" name="moveup.'. |
Line 160 sub get_insert_list {
|
Line 165 sub get_insert_list {
|
} |
} |
} |
} |
if (@tagnums) { |
if (@tagnums) { |
|
my %options; |
foreach my $tagnum (@tagnums) { |
foreach my $tagnum (@tagnums) { |
$result.='<option value="'.$tagnum.'">'.$Apache::lonxml::insertlist{"$tagnum.description"}."</option>\n"; |
my $descrip=$Apache::lonxml::insertlist{"$tagnum.description"}; |
|
$options{$descrip} ="<option value=\"$tagnum\">".$descrip."</option>\n"; |
} |
} |
|
foreach my $option (sort(keys(%options))) { $result.=$options{$option}; } |
if ($result) { $result='<option selected="on"></option>'.$result; } |
if ($result) { $result='<option selected="on"></option>'.$result; } |
} |
} |
return $result; |
return $result; |
Line 289 sub textarea_sizes {
|
Line 297 sub textarea_sizes {
|
my ($data)=@_; |
my ($data)=@_; |
my $count=0; |
my $count=0; |
my $maxlength=-1; |
my $maxlength=-1; |
map { $count++; |
foreach (split ("\n", $$data)) { $count++; |
if (length($_) > $maxlength) { $maxlength = length($_); } |
if (length($_) > $maxlength) { $maxlength = length($_); } |
} split ("\n", $$data); |
} |
my $rows = $count; |
my $rows = $count; |
my $cols = $maxlength; |
my $cols = $maxlength; |
return ($rows,$cols); |
return ($rows,$cols); |
} |
} |
|
|
|
sub editline { |
|
my ($tag,$data,$description,$size)=@_; |
|
$data=&HTML::Entities::encode($data); |
|
if ($description) { $description="<br />".$description."<br />"; } |
|
my $result = <<"END"; |
|
$description |
|
<input type="text" name="homework_edit_$Apache::lonxml::curdepth" |
|
value="$data" size="$size" /> |
|
END |
|
return $result; |
|
} |
|
|
sub editfield { |
sub editfield { |
my ($tag,$data,$description,$minwidth,$minheight)=@_; |
my ($tag,$data,$description,$minwidth,$minheight)=@_; |
|
|
Line 305 sub editfield {
|
Line 325 sub editfield {
|
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="<br />".$description."<br />"; } |
return "$description\n <textarea rows=\"$rows\" cols=\"$cols\" name=\"homework_edit_".$Apache::lonxml::curdepth."\">$data</textarea>\n"; |
return $description."\n".' <textarea rows="'.$rows. |
|
'" cols="'.$cols.'" name="homework_edit_'.$Apache::lonxml::curdepth.'">'. |
|
&HTML::Entities::encode($data).'</textarea>'."\n"; |
} |
} |
|
|
sub modifiedfield { |
sub modifiedfield { |
Line 317 sub modifiedfield {
|
Line 339 sub modifiedfield {
|
# &Apache::lonxml::debug("I want homework_edit_$Apache::lonxml::curdepth"); |
# &Apache::lonxml::debug("I want homework_edit_$Apache::lonxml::curdepth"); |
# &Apache::lonxml::debug($ENV{"form.homework_edit_$Apache::lonxml::curdepth"}); |
# &Apache::lonxml::debug($ENV{"form.homework_edit_$Apache::lonxml::curdepth"}); |
$result=$ENV{"form.homework_edit_$Apache::lonxml::curdepth"}; |
$result=$ENV{"form.homework_edit_$Apache::lonxml::curdepth"}; |
if (defined $token) { |
|
if (defined $token->[4]) { |
|
$result=$token->[4].$result; |
|
} else { |
|
$result=$result.$token->[2]; |
|
} |
|
} |
|
return $result; |
return $result; |
} |
} |
|
|
Line 392 sub select_arg {
|
Line 407 sub select_arg {
|
} |
} |
$result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'"> |
$result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'"> |
'.$optionlist.' |
'.$optionlist.' |
</select></td></tr><tr><td colspan="3">'; |
</select>'; |
return $result; |
return $result; |
} |
} |
|
|
Line 411 sub select_or_text_arg {
|
Line 426 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) { |
if (($found) || (!$selected)) { |
$result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'"> |
$result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'"> |
'.$optionlist.' |
'.$optionlist.' |
</select></td></tr><tr><td colspan="3">'; |
</select>'; |
} else { |
} else { |
$result.=&text_arg($description,$name,$token,$size); |
$result.=&text_arg($description,$name,$token,$size); |
} |
} |
return $result; |
return $result; |
} |
} |
|
|
|
#----------------------------------------------------- browse |
|
sub browse { |
|
# insert a link to call up the filesystem browser (lonindexer) |
|
$_ = shift; |
|
my $form = 'lonhomework'; |
|
my $element = &Apache::lonnet::escape("$Apache::lonxml::curdepth.$_"); |
|
my $result = <<"ENDBUTTON"; |
|
<a href=\"javascript:openbrowser('$form','$element')\"\>Browse</a> |
|
ENDBUTTON |
|
return $result; |
|
} |
|
|
|
#----------------------------------------------------- browse |
|
sub search { |
|
# insert a link to call up the filesystem browser (lonindexer) |
|
$_ = shift; |
|
my $form = 'lonhomework'; |
|
my $element = &Apache::lonnet::escape("$Apache::lonxml::curdepth.$_"); |
|
my $result = <<"ENDBUTTON"; |
|
<a href=\"javascript:opensearcher('$form','$element')\"\>Search</a> |
|
ENDBUTTON |
|
return $result; |
|
} |
|
|
|
|
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 |