version 1.47, 2003/04/30 19:40:47
|
version 1.54, 2003/06/09 22:42:49
|
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 307 sub insert_essayresponse {
|
Line 310 sub insert_essayresponse {
|
</essayresponse>'; |
</essayresponse>'; |
} |
} |
|
|
|
sub insert_imageresponse { |
|
return ' |
|
<imageresponse max="1"> |
|
<foilgroup> |
|
</foilgroup> |
|
<hintgroup> |
|
</hintgroup> |
|
</imageresponse>'; |
|
} |
|
|
sub insert_optionresponse { |
sub insert_optionresponse { |
return ' |
return ' |
<optionresponse max="10"> |
<optionresponse max="10"> |
Line 383 sub insert_radiobuttonhint {
|
Line 396 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 414 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 448 sub get_new_args {
|
Line 469 sub get_new_args {
|
foreach my $arg (@args) { |
foreach my $arg (@args) { |
#just want the string that it was set to |
#just want the string that it was set to |
my $value=$token->[2]->{$arg}; |
my $value=$token->[2]->{$arg}; |
my $newvalue=$ENV{"form.$Apache::lonxml::curdepth.$arg"}; |
my $element=&html_element_name($arg); |
|
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 483 sub rebuild_tag {
|
Line 505 sub rebuild_tag {
|
|
|
sub html_element_name { |
sub html_element_name { |
my ($name) = @_; |
my ($name) = @_; |
return $Apache::lonxml::curdepth.'.'.$name; |
return $name.'_'.$Apache::lonxml::curdepth; |
|
} |
|
|
|
sub hidden_arg { |
|
my ($name,$token) = @_; |
|
my $result; |
|
my $arg=$token->[2]{$name}; |
|
$result='<input name="'.&html_element_name($name). |
|
'" type="hidden" value="'.$arg.'" />'; |
|
return $result; |
} |
} |
|
|
sub text_arg { |
sub text_arg { |
Line 555 sub select_or_text_arg {
|
Line 586 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 562 sub browse {
|
Line 651 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 576 ENDBUTTON
|
Line 665 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 |