version 1.48, 2003/05/04 22:14:53
|
version 1.53, 2003/06/04 23:04:34
|
Line 40 use HTML::Entities();
|
Line 40 use HTML::Entities();
|
# depth of nesting of edit |
# depth of nesting of edit |
$Apache::edit::colordepth=0; |
$Apache::edit::colordepth=0; |
@Apache::edit::inserttag=(); |
@Apache::edit::inserttag=(); |
|
# image-type responses: active background image and curdepth at definition |
|
$Apache::edit::bgimgsrc=''; |
|
$Apache::edit::bgimgsrccurdepth=''; |
|
|
sub initialize_edit { |
sub initialize_edit { |
$Apache::edit::colordepth=0; |
$Apache::edit::colordepth=0; |
Line 383 sub insert_radiobuttonhint {
|
Line 386 sub insert_radiobuttonhint {
|
</radiobuttonhint>'; |
</radiobuttonhint>'; |
} |
} |
|
|
|
sub insert_optionhint { |
|
return ' |
|
<optionhint> |
|
</optionhint>'; |
|
} |
|
|
sub insert_startouttext { |
sub insert_startouttext { |
return "<startouttext />\n<endouttext />"; |
return "<startouttext />\n<endouttext />"; |
} |
} |
Line 395 sub textarea_sizes {
|
Line 404 sub textarea_sizes {
|
my ($data)=@_; |
my ($data)=@_; |
my $count=0; |
my $count=0; |
my $maxlength=-1; |
my $maxlength=-1; |
foreach (split ("\n", $$data)) { $count++; |
foreach (split ("\n", $$data)) { |
if (length($_) > $maxlength) { $maxlength = length($_); } |
$count+=int(length($_)/79); |
} |
$count++; |
|
if (length($_) > $maxlength) { $maxlength = length($_); } |
|
} |
my $rows = $count; |
my $rows = $count; |
my $cols = $maxlength; |
my $cols = $maxlength; |
return ($rows,$cols); |
return ($rows,$cols); |
Line 451 sub get_new_args {
|
Line 462 sub get_new_args {
|
my $element=&html_element_name($arg); |
my $element=&html_element_name($arg); |
my $newvalue=$ENV{"form.$element"}; |
my $newvalue=$ENV{"form.$element"}; |
&Apache::lonxml::debug(" for:$arg: cur is :$value: new is :$newvalue:"); |
&Apache::lonxml::debug(" for:$arg: cur is :$value: new is :$newvalue:"); |
if ($value ne $newvalue) { |
if (defined($newvalue) && $value ne $newvalue) { |
$token->[2]->{$arg}=$newvalue; |
$token->[2]->{$arg}=$newvalue; |
$rebuild=1; |
$rebuild=1; |
} |
} |
Line 565 sub select_or_text_arg {
|
Line 576 sub select_or_text_arg {
|
return $result; |
return $result; |
} |
} |
|
|
|
#----------------------------------------------------- image coordinates |
|
# single image coordinates, x, y |
|
sub entercoords { |
|
my ($idx,,$idy,$mode,$width,$height) = @_; |
|
unless ($Apache::edit::bgimgsrc) { return ''; } |
|
if ($idx) { $idx.='_'; } |
|
if ($idy) { $idy.='_'; } |
|
my $bgfile=&Apache::lonnet::escape($Apache::edit::bgimgsrc); |
|
my $form = 'lonhomework'; |
|
my $element; |
|
if (! defined($mode) || $mode eq 'attribute') { |
|
$element = &Apache::lonnet::escape("$Apache::lonxml::curdepth"); |
|
} elsif ($mode eq 'textnode') { # for data between <tag> ... </tag> |
|
$element = &Apache::lonnet::escape('homework_edit_'. |
|
$Apache::lonxml::curdepth); |
|
} |
|
my $formheight=''; |
|
if ($height) { |
|
$formheight='&formheight='.$height.'_'.$Apache::edit::bgimgsrccurdepth; |
|
} |
|
my $formwidth=''; |
|
if ($width) { |
|
$formwidth='&formwidth='.$width.'_'.$Apache::edit::bgimgsrccurdepth; |
|
} |
|
my $result = <<"ENDBUTTON"; |
|
<a href="/cgi-bin/imagechoice.pl?formname=$form&file=$bgfile&formx=$idx$element&formy=$idy$element$formheight$formwidth" |
|
target="imagechoice">Click Coordinates</a> |
|
ENDBUTTON |
|
return $result; |
|
} |
|
|
|
# coordinate pair (x1,y1)-(x2,y2) |
|
sub entercoordpair { |
|
my ($id,$mode,$width,$height) = @_; |
|
unless ($Apache::edit::bgimgsrc) { return ''; } |
|
my $bgfile=&Apache::lonnet::escape($Apache::edit::bgimgsrc); |
|
my $form = 'lonhomework'; |
|
my $element; |
|
if (! defined($mode) || $mode eq 'attribute') { |
|
$element = &Apache::lonnet::escape("$id\_$Apache::lonxml::curdepth"); |
|
} elsif ($mode eq 'textnode') { # for data between <tag> ... </tag> |
|
$element = &Apache::lonnet::escape('homework_edit_'. |
|
$Apache::lonxml::curdepth); |
|
} |
|
my $formheight=''; |
|
if ($height) { |
|
$formheight='&formheight='.$height.'_'.$Apache::edit::bgimgsrccurdepth; |
|
} |
|
my $formwidth=''; |
|
if ($width) { |
|
$formwidth='&formwidth='.$width.'_'.$Apache::edit::bgimgsrccurdepth; |
|
} |
|
my $result = <<"ENDBUTTON"; |
|
<a href="/cgi-bin/imagechoice.pl?mode=pair&formname=$form&file=$bgfile$formheight$formwidth&formcoord=$element" |
|
target="imagechoice">Click Coordinate Pair</a> |
|
ENDBUTTON |
|
return $result; |
|
} |
#----------------------------------------------------- browse |
#----------------------------------------------------- browse |
sub browse { |
sub browse { |
# insert a link to call up the filesystem browser (lonindexer) |
# insert a link to call up the filesystem browser (lonindexer) |
Line 572 sub browse {
|
Line 641 sub browse {
|
my $form = 'lonhomework'; |
my $form = 'lonhomework'; |
my $element; |
my $element; |
if (! defined($mode) || $mode eq 'attribute') { |
if (! defined($mode) || $mode eq 'attribute') { |
$element = &Apache::lonnet::escape("$Apache::lonxml::curdepth.$id"); |
$element = &Apache::lonnet::escape("$id\_$Apache::lonxml::curdepth"); |
} elsif ($mode eq 'textnode') { # for data between <tag> ... </tag> |
} elsif ($mode eq 'textnode') { # for data between <tag> ... </tag> |
$element = &Apache::lonnet::escape('homework_edit_'. |
$element = &Apache::lonnet::escape('homework_edit_'. |
$Apache::lonxml::curdepth); |
$Apache::lonxml::curdepth); |
Line 586 ENDBUTTON
|
Line 655 ENDBUTTON
|
#----------------------------------------------------- browse |
#----------------------------------------------------- browse |
sub search { |
sub search { |
# insert a link to call up the filesystem browser (lonindexer) |
# insert a link to call up the filesystem browser (lonindexer) |
$_ = shift; |
my ($id, $mode) = @_; |
my $form = 'lonhomework'; |
my $form = 'lonhomework'; |
my $element = &Apache::lonnet::escape("$Apache::lonxml::curdepth.$_"); |
my $element; |
|
if (! defined($mode) || $mode eq 'attribute') { |
|
$element = &Apache::lonnet::escape("$id\_$Apache::lonxml::curdepth"); |
|
} elsif ($mode eq 'textnode') { # for data between <tag> ... </tag> |
|
$element = &Apache::lonnet::escape('homework_edit_'. |
|
$Apache::lonxml::curdepth); |
|
} |
my $result = <<"ENDBUTTON"; |
my $result = <<"ENDBUTTON"; |
<a href=\"javascript:opensearcher('$form','$element')\"\>Search</a> |
<a href=\"javascript:opensearcher('$form','$element')\"\>Search</a> |
ENDBUTTON |
ENDBUTTON |