version 1.46, 2003/02/13 23:53:33
|
version 1.62, 2003/09/08 21:17:54
|
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 60 sub tag_start {
|
Line 63 sub tag_start {
|
&deletelist($target,$token) |
&deletelist($target,$token) |
."</td> |
."</td> |
<td>". |
<td>". |
&insertlist($target,$token).&end_row().&start_spanning_row(); |
&insertlist($target,$token); |
#<td>". |
#<td>". |
# &movebuttons($target,$token). |
# &movebuttons($target,$token). |
# "</tr><tr><td colspan=\"3\">\n"; |
# "</tr><tr><td colspan=\"3\">\n"; |
|
my @help;# = Apache::lonxml::helpinfo($token); |
|
if ($help[0]) { |
|
$result .= '<td align="right" valign="top">' . |
|
Apache::loncommon::help_open_topic(@help) . |
|
'</td>'; |
|
} else { $result .= "<td> </td>"; } |
|
$result .= &end_row().&start_spanning_row(); |
} |
} |
return $result; |
return $result; |
} |
} |
Line 72 sub tag_end {
|
Line 82 sub tag_end {
|
my ($target,$token,$description) = @_; |
my ($target,$token,$description) = @_; |
my $result=''; |
my $result=''; |
if ($target eq 'edit') { |
if ($target eq 'edit') { |
my $tag=$token->[1]; |
$result.="</td></tr>".&end_table()."\n"; |
if (!defined($description)) { |
|
$result.="</td></tr><tr><td></$tag></td><td colspan=\"2\"> </td>"; |
|
} else { |
|
if ($description ne '') { $result.="</td></tr><tr><td>$description</td><td colspan=\"2\"> </td>"; } |
|
} |
|
$result.="</tr>".&end_table()."\n"; |
|
} |
} |
return $result; |
return $result; |
} |
} |
Line 122 sub end_table {
|
Line 126 sub end_table {
|
return $result; |
return $result; |
} |
} |
|
|
sub start_spanning_row { return '<tr><td colspan="3" bgcolor="#DDDDDD">';} |
sub start_spanning_row { return '<tr><td colspan="4" 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 307 sub insert_essayresponse {
|
Line 311 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 397 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 415 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 443 sub modifiedfield {
|
Line 465 sub modifiedfield {
|
# Returns a 1 if the token has been modified and you should rebuild the tag |
# Returns a 1 if the token has been modified and you should rebuild the tag |
# side-effects, will modify the $token if new values are found |
# side-effects, will modify the $token if new values are found |
sub get_new_args { |
sub get_new_args { |
my ($token,$parstack,$safeeval,@args)=@_; |
my ($token,$parstack,$safeeval,@args)=@_; |
my $rebuild=0; |
my $rebuild=0; |
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; |
if (ref($newvalue) eq 'ARRAY') { |
$rebuild=1; |
$token->[2]->{$arg}=join(',',@$newvalue); |
|
} else { |
|
$token->[2]->{$arg}=$newvalue; |
|
} |
|
$rebuild=1; |
} |
} |
} |
} |
return $rebuild; |
return $rebuild; |
Line 481 sub rebuild_tag {
|
Line 508 sub rebuild_tag {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub html_element_name { |
|
my ($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 checked_arg { |
|
my ($description,$name,$list,$token) = @_; |
|
my $result; |
|
my $optionlist=""; |
|
my $allselected=$token->[2]{$name}; |
|
$result=$description; |
|
foreach my $option (@$list) { |
|
my ($value,$text); |
|
if ( ref($option) eq 'ARRAY') { |
|
$value='value="'.$$option[0].'"'; |
|
$text=$$option[1]; |
|
$option=$$option[0]; |
|
} else { |
|
$text=$option; |
|
$value='value="'.$option.'"'; |
|
} |
|
$result.="<nobr><input type='checkbox' $value name='". |
|
&html_element_name($name)."'"; |
|
foreach my $selected (split(/,/,$allselected)) { |
|
if ( $selected eq $option ) { |
|
$result.=" checked='on' "; |
|
last; |
|
} |
|
} |
|
$result.=" />$text</nobr>\n"; |
|
} |
|
return $result; |
|
} |
|
|
sub text_arg { |
sub text_arg { |
my ($description,$name,$token,$size) = @_; |
my ($description,$name,$token,$size) = @_; |
my $result; |
my $result; |
if (!defined $size) { $size=20; } |
if (!defined $size) { $size=20; } |
my $arg=$token->[2]{$name}; |
my $arg=$token->[2]{$name}; |
$result=$description.' <input name="'."$Apache::lonxml::curdepth.$name". |
$result=$description.' <input name="'.&html_element_name($name). |
'" type="text" value="'.$arg.'" size="'.$size.'" />'; |
'" type="text" value="'.$arg.'" size="'.$size.'" />'; |
return $result; |
return '<nobr>'.$result.'</nobr>'; |
} |
} |
|
|
sub select_arg { |
sub select_arg { |
Line 510 sub select_arg {
|
Line 580 sub select_arg {
|
$optionlist.="<option $value >$option</option>\n"; |
$optionlist.="<option $value >$option</option>\n"; |
} |
} |
} |
} |
$result.=$description.' <select name="'. |
$result.='<nobr>'.$description.' <select name="'. |
"$Apache::lonxml::curdepth.$name".'"> |
&html_element_name($name).'"> |
'.$optionlist.' |
'.$optionlist.' |
</select>'; |
</select></nobr>'; |
return $result; |
return $result; |
} |
} |
|
|
Line 538 sub select_or_text_arg {
|
Line 608 sub select_or_text_arg {
|
$optionlist.="<option $value>$option</option>\n"; |
$optionlist.="<option $value>$option</option>\n"; |
} |
} |
} |
} |
$optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n"; |
$optionlist.="<option value=\"TYPEDINVALUE\"". |
if (($found) || (!$selected)) { |
((!$found)?' selected="on"':''). |
$result.=$description.' <select name="'."$Apache::lonxml::curdepth.$name".'"> |
">Type in value</option>\n"; |
'.$optionlist.' |
# |
</select>'; |
my $element=&html_element_name($name); |
} else { |
my $selectelement='select_list_'.$element; |
$result.=&text_arg($description,$name,$token,$size); |
my $typeinelement='type_in_'.$element; |
|
my $typeinvalue=($found?'':$selected); |
|
# |
|
my $hiddenvalue='this.form.'.$element.'.value'; |
|
my $selectedindex='this.form.'.$selectelement.'.selectedIndex'; |
|
my $selectedvalue='this.form.'.$selectelement. |
|
'.options['.$selectedindex.'].value'; |
|
my $typedinvalue='this.form.'.$typeinelement.'.value'; |
|
my $selecttypeinindex='this.form.'.$selectelement.'.options.length'; |
|
# |
|
return (<<ENDSELECTORTYPE); |
|
<nobr> |
|
$description |
|
<select name="$selectelement" |
|
onChange="if ($selectedvalue!='TYPEDINVALUE') { $hiddenvalue=$selectedvalue; $typedinvalue=''; }" |
|
$optionlist |
|
</select> |
|
<input type="text" size="$size" name="$typeinelement" |
|
value="$typeinvalue" |
|
onChange="$hiddenvalue=$typedinvalue;" |
|
onFocus="$selectedindex=$selecttypeinindex-1;" /> |
|
<input type="hidden" name="$element" value="$selected" /> |
|
</nobr> |
|
ENDSELECTORTYPE |
|
} |
|
|
|
#----------------------------------------------------- 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; |
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 556 sub browse {
|
Line 705 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); |
} |
} |
my $result = <<"ENDBUTTON"; |
my $result = <<"ENDBUTTON"; |
<a href=\"javascript:openbrowser('$form','$element')\"\>Browse</a> |
<a href=\"javascript:openbrowser('$form','$element')\"\>Select</a> |
ENDBUTTON |
ENDBUTTON |
return $result; |
return $result; |
} |
} |
Line 570 ENDBUTTON
|
Line 719 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 |