version 1.36, 2010/11/12 22:23:40
|
version 1.40, 2010/11/19 17:20:44
|
Line 33 use Apache::lonlocal;
|
Line 33 use Apache::lonlocal;
|
use Apache::lonnet; |
use Apache::lonnet; |
|
|
BEGIN { |
BEGIN { |
&Apache::lonxml::register('Apache::functionplotresponse',('functionplotresponse','backgroundplot','spline','functionplotrule')); |
&Apache::lonxml::register('Apache::functionplotresponse',('functionplotresponse','backgroundplot','spline', |
|
'functionplotrule','functionplotruleset', |
|
'functionplotelements')); |
} |
} |
|
|
# |
# |
Line 45 sub geogebra_startcode {
|
Line 47 sub geogebra_startcode {
|
my ($id)=@_; |
my ($id)=@_; |
return (<<ENDSTARTCODE); |
return (<<ENDSTARTCODE); |
<applet name="ggbApplet_$id" code="geogebra.GeoGebraApplet" archive="geogebra.jar" |
<applet name="ggbApplet_$id" code="geogebra.GeoGebraApplet" archive="geogebra.jar" |
codebase="/adm/geogebra/" width="714" height="447" MAYSCRIPT> |
codebase="/adm/geogebra/" width="722" height="447" MAYSCRIPT> |
<param name="java_arguments" value="-Xmx512m -Djnlp.packEnabled=true"/> |
<param name="java_arguments" value="-Xmx512m -Djnlp.packEnabled=true"/> |
ENDSTARTCODE |
ENDSTARTCODE |
} |
} |
Line 72 sub geogebra_default_parameters {
|
Line 74 sub geogebra_default_parameters {
|
<param name="image" value="/adm/lonIcons/lonanim.gif" /> |
<param name="image" value="/adm/lonIcons/lonanim.gif" /> |
<param name="boxborder" value="false" /> |
<param name="boxborder" value="false" /> |
<param name="centerimage" value="true" /> |
<param name="centerimage" value="true" /> |
<param name="java_arguments" value="-Xmx512m" /> |
<param name="cache_archive" value="geogebra.jar, geogebra_main.jar, geogebra_gui.jar, geogebra_cas.jar, geogebra_algos.jar, geogebra_export.jar, geogebra_javascript.jar, jlatexmath.jar, jlm_greek.jar, jlm_cyrillic.jar, geogebra_properties.jar" /> |
<param name="cache_archive" value="geogebra.jar, geogebra_main.jar, geogebra_gui.jar, geogebra_cas.jar, geogebra_export.jar, geogebra_properties.jar" /> |
<param name="cache_version" value="3.9.115.0, 3.9.115.0, 3.9.115.0, 3.9.115.0, 3.9.115.0, 3.9.115.0, 3.9.115.0, 3.9.115.0, 3.9.115.0, 3.9.115.0, 3.9.115.0" /> |
<param name="cache_version" value="3.2.44.0, 3.2.44.0, 3.2.44.0, 3.2.44.0, 3.2.44.0, 3.2.44.0" /> |
|
<param name="framePossible" value="false" /> |
<param name="framePossible" value="false" /> |
|
|
<param name="showResetIcon" value="false" /> |
<param name="showResetIcon" value="false" /> |
Line 157 sub update_register {
|
Line 158 sub update_register {
|
} |
} |
|
|
# |
# |
# Set a coordinate variable |
# Set a point coordinate variable |
# |
# |
sub set_coordinate { |
sub set_point_coordinate { |
my ($id,$variable,$x,$y)=@_; |
my ($id,$variable,$x,$y)=@_; |
return (<<ENDSETVARIABLE); |
return (<<ENDSETVARIABLE); |
document.ggbApplet_$id.evalCommand("$variable=($x,$y)"); |
document.ggbApplet_$id.evalCommand("$variable=($x,$y)"); |
|
document.ggbApplet_$id.setLabelVisible("$variable",false); |
ENDSETVARIABLE |
ENDSETVARIABLE |
} |
} |
|
|
# |
# |
|
# Set a slope coordinate variable |
|
# |
|
sub set_slope_coordinate { |
|
my ($id,$variable,$xrel,$yrel,$xmin,$xmax,$ymin,$ymax,$pointname)=@_; |
|
my $xvariable=$variable.'x'; |
|
my $yvariable=$variable.'y'; |
|
my $domain=$xmax-$xmin; |
|
my $range=$ymax-$ymin; |
|
my $xinterval=$domain/100.; |
|
my $yinterval=$range/200.; |
|
return (<<ENDSETSVARIABLE); |
|
document.ggbApplet_$id.evalCommand("$xvariable=Slider[0,$domain,$xinterval]"); |
|
document.ggbApplet_$id.setVisible("$xvariable", false); |
|
document.ggbApplet_$id.evalCommand("$xvariable=$xrel"); |
|
document.ggbApplet_$id.evalCommand("$yvariable=Slider[-$range,$range,$yinterval]"); |
|
document.ggbApplet_$id.setVisible("$yvariable", false); |
|
document.ggbApplet_$id.evalCommand("$yvariable=$yrel"); |
|
document.ggbApplet_$id.evalCommand("$variable=($xvariable+x($pointname),$yvariable+y($pointname))"); |
|
document.ggbApplet_$id.setLabelVisible("$variable", false); |
|
ENDSETSVARIABLE |
|
} |
|
|
|
# |
# Input field name for a coordinate variable |
# Input field name for a coordinate variable |
# |
# |
|
|
Line 187 sub generate_input_field {
|
Line 212 sub generate_input_field {
|
} |
} |
|
|
# |
# |
# Initialize a new coordinate variable at set a listener on it |
# Initialize a new point coordinate variable at set a listener on it |
# |
# |
sub new_coordinate { |
sub new_point_coordinate { |
my ($id,$variable,$x,$y)=@_; |
my ($id,$variable,$x,$y)=@_; |
if (defined($Apache::functionplotresponse::previous{&field_name($id,$variable,'x')})) { |
if (defined($Apache::functionplotresponse::previous{&field_name($id,$variable,'x')})) { |
$x=$Apache::functionplotresponse::previous{&field_name($id,$variable,'x')}; |
$x=$Apache::functionplotresponse::previous{&field_name($id,$variable,'x')}; |
Line 198 sub new_coordinate {
|
Line 223 sub new_coordinate {
|
$y=$Apache::functionplotresponse::previous{&field_name($id,$variable,'y')}; |
$y=$Apache::functionplotresponse::previous{&field_name($id,$variable,'y')}; |
} |
} |
&generate_input_field($id,$variable,$x,$y); |
&generate_input_field($id,$variable,$x,$y); |
return &set_coordinate($id,$variable,$x,$y).&update_register($id,$variable); |
return &set_point_coordinate($id,$variable,$x,$y).&update_register($id,$variable); |
|
} |
|
|
|
# |
|
# Initialize a new slope coordinate variable at set a listener on it |
|
# |
|
sub new_slope_coordinate { |
|
my ($id,$variable,$x,$y,$pointname,$xp,$yp,$xmin,$xmax,$ymin,$ymax)=@_; |
|
# |
|
# $variable: name of the slope point |
|
# $x, $y: coordinates of the slope point |
|
# $pointname: name of the associated point point |
|
# $xp $yp: coordinates of the point point |
|
# |
|
if (defined($Apache::functionplotresponse::previous{&field_name($id,$variable,'x')})) { |
|
$x=$Apache::functionplotresponse::previous{&field_name($id,$variable,'x')}; |
|
} |
|
if (defined($Apache::functionplotresponse::previous{&field_name($id,$variable,'y')})) { |
|
$y=$Apache::functionplotresponse::previous{&field_name($id,$variable,'y')}; |
|
} |
|
if (defined($Apache::functionplotresponse::previous{&field_name($id,$pointname,'x')})) { |
|
$xp=$Apache::functionplotresponse::previous{&field_name($id,$pointname,'x')}; |
|
} |
|
if (defined($Apache::functionplotresponse::previous{&field_name($id,$pointname,'y')})) { |
|
$yp=$Apache::functionplotresponse::previous{&field_name($id,$pointname,'y')}; |
|
} |
|
|
|
&generate_input_field($id,$variable,$x,$y); |
|
my $xrel=$x-$xp; |
|
my $yrel=$y-$yp; |
|
return &set_slope_coordinate($id,$variable,$xrel,$yrel,$xmin,$xmax,$ymin,$ymax,$pointname).&update_register($id,$variable); |
} |
} |
|
|
# |
# |
Line 282 ENDPLOTSCRIPT
|
Line 337 ENDPLOTSCRIPT
|
# |
# |
|
|
sub generate_spline { |
sub generate_spline { |
my ($id,$label)=@_; |
my ($id,$label,$xmin,$xmax,$ymin,$ymax)=@_; |
my $result=''; |
my $result=''; |
my $order=$Apache::functionplotresponse::splineorder{$label}; |
my $order=$Apache::functionplotresponse::splineorder{$label}; |
my $x=$Apache::functionplotresponse::splineinitx{$label}; |
my $x=$Apache::functionplotresponse::splineinitx{$label}; |
Line 291 sub generate_spline {
|
Line 346 sub generate_spline {
|
my $sy=$Apache::functionplotresponse::splinescaley{$label}; |
my $sy=$Apache::functionplotresponse::splinescaley{$label}; |
my @coords=(); |
my @coords=(); |
foreach my $i (1..$order) { |
foreach my $i (1..$order) { |
$result.=&new_coordinate($id,$label.'P'.$i,$x,$y); |
$result.=&new_point_coordinate($id,$label.'P'.$i,$x,$y); |
|
my $xp=$x; |
$x+=$sx/(2.*($order-1)); |
$x+=$sx/(2.*($order-1)); |
push(@coords,$label.'P'.$i); |
push(@coords,$label.'P'.$i); |
$result.=&new_coordinate($id,$label.'S'.$i,$x,$y+$sy); |
$result.=&new_slope_coordinate($id,$label.'S'.$i,$x,$y+$sy,$label.'P'.$i,$xp,$y,$xmin,$xmax,$ymin,$ymax); |
$x+=$sx/(2.*($order-1)); |
$x+=$sx/(2.*($order-1)); |
push(@coords,$label.'S'.$i); |
push(@coords,$label.'S'.$i); |
} |
} |
Line 415 sub start_functionplotrule {
|
Line 471 sub start_functionplotrule {
|
$token,'8'). |
$token,'8'). |
&Apache::edit::text_arg('Optional maximum length for range:','maximumlength', |
&Apache::edit::text_arg('Optional maximum length for range:','maximumlength', |
$token,'8').'<br />'. |
$token,'8').'<br />'. |
&Apache::edit::select_arg(&mt('Relationship:'),'relationship', |
&Apache::edit::select_or_text_arg(&mt('Relationship:'),'relationship', |
[['eq','equal'], |
[['eq','equal'], |
['ne','not equal'], |
['ne','not equal'], |
['ge','greater than or equal'], |
['ge','greater than or equal'], |
Line 593 sub d2dt2_cubic_hermite {
|
Line 649 sub d2dt2_cubic_hermite {
|
# |
# |
sub array_index { |
sub array_index { |
my ($xmin,$xmax,$x)=@_; |
my ($xmin,$xmax,$x)=@_; |
return int(($x-$xmin)/($xmax-$xmin)*400.+0.5); |
if ($x ne '') { |
|
return int(($x-$xmin)/($xmax-$xmin)*400.+0.5); |
|
} else { |
|
return undef; |
|
} |
} |
} |
|
|
# |
# |
Line 660 sub populate_arrays {
|
Line 720 sub populate_arrays {
|
} |
} |
|
|
# |
# |
# Implentation of <functionplotresponse> |
# Implementation of <functionplotresponse> |
# |
# |
|
|
sub start_functionplotresponse { |
sub start_functionplotresponse { |
Line 678 sub start_functionplotresponse {
|
Line 738 sub start_functionplotresponse {
|
$Apache::functionplotresponse::counter=0; |
$Apache::functionplotresponse::counter=0; |
# Remember rules |
# Remember rules |
undef @Apache::functionplotresponse::functionplotrules; |
undef @Apache::functionplotresponse::functionplotrules; |
|
# Remember failed rules |
|
if ($target eq 'grade') { |
|
undef @Apache::functionplotresponse::failedrules; |
|
} |
|
# Delete previous awards |
|
undef $Apache::functionplotresponse::awarddetail; |
# Part and ID |
# Part and ID |
my $partid=$Apache::inputtags::part; |
my $partid=$Apache::inputtags::part; |
my $id=&Apache::response::start_response($parstack,$safeeval); |
my $id=&Apache::response::start_response($parstack,$safeeval); |
Line 712 sub start_functionplotresponse {
|
Line 778 sub start_functionplotresponse {
|
$result.=&Apache::edit::start_table($token) |
$result.=&Apache::edit::start_table($token) |
.'<tr><td><span class="LC_nobreak">'.&mt('Function Plot Question').'</span></td>' |
.'<tr><td><span class="LC_nobreak">'.&mt('Function Plot Question').'</span></td>' |
.'<td><span class="LC_nobreak">'.&mt('Delete?').' ' |
.'<td><span class="LC_nobreak">'.&mt('Delete?').' ' |
.&Apache::edit::deletelist($target,$token) |
.&Apache::edit::deletelist($target,$token).' ' |
|
.&Apache::edit::insertlist($target,$token) |
.'</span></td>' |
.'</span></td>' |
."<td> " |
."<td> " |
.&Apache::edit::end_row() |
.&Apache::edit::end_row() |
Line 745 sub start_functionplotresponse {
|
Line 812 sub start_functionplotresponse {
|
|
|
} elsif ($target eq 'meta') { |
} elsif ($target eq 'meta') { |
$result=&Apache::response::meta_package_write('functionplotresponse'); |
$result=&Apache::response::meta_package_write('functionplotresponse'); |
} elsif ($target eq 'web') { |
|
# paste in the update routine to receive stuff back from the applet |
|
$result.=&update_script($internalid); |
|
# start the initscript for this applet |
|
$result.=&start_init_script($internalid); |
|
# put the axis commands inside |
|
$result.=&axes_script($internalid,$xmin,$xmax,$ymin,$ymax,$xaxisvisible,$yaxisvisible,$gridvisible); |
|
$result.=&axes_label($internalid,$xlabel,$ylabel); |
|
# init script is left open |
|
} elsif (($target eq 'answer') && |
} elsif (($target eq 'answer') && |
($env{'form.answer_output_mode'} ne 'tex') && |
($env{'form.answer_output_mode'} ne 'tex') && |
($Apache::lonhomework::viewgrades == 'F')) { |
($Apache::lonhomework::viewgrades == 'F')) { |
Line 886 sub functionplotrulecheck {
|
Line 944 sub functionplotrulecheck {
|
# Basic sanity checks |
# Basic sanity checks |
if ($li<0) { $li=0; } |
if ($li<0) { $li=0; } |
if ($lh>400) { $lh=400; } |
if ($lh>400) { $lh=400; } |
if ($li>$lh) { |
if (($li>$lh) || (!defined($lh))) { |
$lh=$li; |
$lh=$li; |
} |
} |
|
|
Line 912 sub functionplotrulecheck {
|
Line 970 sub functionplotrulecheck {
|
} else { |
} else { |
$val=$Apache::functionplotresponse::func[$i]; |
$val=$Apache::functionplotresponse::func[$i]; |
} |
} |
&addlog("Actual value ".(defined($val)?$val:'undef').", expected $value, tolerance $tol"); |
|
unless (&compare_rel($relationship,$value,$val,$tol)) { |
unless (&compare_rel($relationship,$value,$val,$tol)) { |
|
&addlog("Actual value ".(defined($val)?$val:'undef').", expected $value, tolerance $tol"); |
&addlog("Condition not fulfilled at x=".&actualval($i,$xmin,$xmax)." (".$Apache::functionplotresponse::actualxval[$i]."; index $i)"); |
&addlog("Condition not fulfilled at x=".&actualval($i,$xmin,$xmax)." (".$Apache::functionplotresponse::actualxval[$i]."; index $i)"); |
if (($findupper) && ($i>$li)) { |
if (($findupper) && ($i>$li)) { |
# check for minimum and maximum lengths |
# check for minimum and maximum lengths |
Line 935 sub functionplotrulecheck {
|
Line 993 sub functionplotrulecheck {
|
return 1; |
return 1; |
} else { |
} else { |
&addlog("Rule $label failed."); |
&addlog("Rule $label failed."); |
|
my $hintlabel=$label; |
|
$hintlabel=~s/^R//; |
|
push(@Apache::functionplotresponse::failedrules,$hintlabel); |
|
&addlog("Set hint condition $hintlabel"); |
return 0; |
return 0; |
} |
} |
} |
} |
Line 943 sub functionplotrulecheck {
|
Line 1005 sub functionplotrulecheck {
|
return 1; |
return 1; |
} |
} |
|
|
sub end_functionplotresponse { |
sub start_functionplotruleset { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
&Apache::response::end_response; |
if ($target eq 'edit') { |
|
return &Apache::edit::start_table($token). |
my $result; |
'<tr><td><span class="LC_nobreak">'.&mt('Function Plot Rule Set').'</span></td>' |
my $id=$Apache::inputtags::response[-1]; |
.'<td><span class="LC_nobreak">'.&mt('Delete?').' ' |
my $partid=$Apache::inputtags::part; |
.&Apache::edit::deletelist($target,$token).' '. |
my $internalid = $partid.'_'.$id; |
&Apache::edit::insertlist($target,$token) |
|
.'</span></td>' |
|
."<td> " |
if ($target eq 'edit') { $result=&Apache::edit::end_table(); } |
.&Apache::edit::end_row() |
if ($target eq 'grade' |
.&Apache::edit::start_spanning_row() |
&& &Apache::response::submitted() |
."\n"; |
&& $Apache::lonhomework::type eq 'exam') { |
} |
|
} |
&Apache::response::scored_response($partid,$id); |
|
|
|
} elsif ($target eq 'grade' |
sub end_functionplotruleset { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
|
my $id=$Apache::inputtags::response[-1]; |
|
my $partid=$Apache::inputtags::part; |
|
my $internalid = $partid.'_'.$id; |
|
|
|
if ($target eq 'edit' ) { |
|
return &Apache::edit::end_table(); |
|
} elsif ($target eq 'grade' |
&& &Apache::response::submitted() |
&& &Apache::response::submitted() |
&& $Apache::lonhomework::type ne 'exam') { |
&& $Apache::lonhomework::type ne 'exam') { |
my ($response,%coords)=&get_answer_from_form_fields($internalid); |
|
$Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response; |
|
my %previous=&Apache::response::check_for_previous($response,$partid,$id); |
|
# |
# |
# Actually grade |
# Actually grade |
# |
# |
my $xmin=&Apache::lonxml::get_param('xmin',$parstack,$safeeval); |
my $xmin=&Apache::lonxml::get_param('xmin',$parstack,$safeeval,-2); |
$xmin=(defined($xmin)?$xmin:-10); |
$xmin=(defined($xmin)?$xmin:-10); |
my $xmax=&Apache::lonxml::get_param('xmax',$parstack,$safeeval); |
my $xmax=&Apache::lonxml::get_param('xmax',$parstack,$safeeval,-2); |
$xmax=(defined($xmax)?$xmax:10); |
$xmax=(defined($xmax)?$xmax:10); |
my $ymin=&Apache::lonxml::get_param('ymin',$parstack,$safeeval); |
my $ymin=&Apache::lonxml::get_param('ymin',$parstack,$safeeval,-2); |
$ymin=(defined($ymin)?$ymin:-10); |
$ymin=(defined($ymin)?$ymin:-10); |
my $ymax=&Apache::lonxml::get_param('ymax',$parstack,$safeeval); |
my $ymax=&Apache::lonxml::get_param('ymax',$parstack,$safeeval,-2); |
$ymax=(defined($ymax)?$ymax:10); |
$ymax=(defined($ymax)?$ymax:10); |
|
|
my $ad=''; |
my $ad=''; |
Line 1001 sub end_functionplotresponse {
|
Line 1067 sub end_functionplotresponse {
|
# If it's not wrong, it's correct |
# If it's not wrong, it's correct |
unless ($ad) { $ad='EXACT_ANS' }; |
unless ($ad) { $ad='EXACT_ANS' }; |
} |
} |
|
&addlog("Set hint conditions: ".join(",",@Apache::functionplotresponse::failedrules)); |
|
&addlog("Assigned award detail: $ad"); |
|
# Store for later to be assigned at end_functionplotresponse |
|
$Apache::functionplotresponse::awarddetail=$ad; |
|
} |
|
} |
|
|
|
|
|
sub end_functionplotresponse { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
&Apache::response::end_response; |
|
|
|
my $result; |
|
my $id=$Apache::inputtags::response[-1]; |
|
my $partid=$Apache::inputtags::part; |
|
my $internalid = $partid.'_'.$id; |
|
|
|
if ($target eq 'edit') { $result=&Apache::edit::end_table(); } |
|
if ($target eq 'grade' |
|
&& &Apache::response::submitted() |
|
&& $Apache::lonhomework::type eq 'exam') { |
|
|
|
&Apache::response::scored_response($partid,$id); |
|
|
|
} elsif ($target eq 'grade' |
|
&& &Apache::response::submitted() |
|
&& $Apache::lonhomework::type ne 'exam') { |
|
my ($response,%coords)=&get_answer_from_form_fields($internalid); |
|
$Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response; |
|
my %previous=&Apache::response::check_for_previous($response,$partid,$id); |
|
# |
|
# Assign grade |
|
# |
|
my $ad=$Apache::functionplotresponse::awarddetail; |
# |
# |
# Store grading info |
# Store grading info |
# |
# |
$Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad; |
$Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad; |
&Apache::response::handle_previous(\%previous,$ad); |
&Apache::response::handle_previous(\%previous,$ad); |
} elsif ($target eq 'web') { |
} elsif ($target eq 'web') { |
|
undef @Apache::functionplotresponse::failedrules; |
|
} |
|
return $result; |
|
} |
|
|
|
sub end_functionplotelements { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
|
my $result=''; |
|
my $id=$Apache::inputtags::response[-1]; |
|
my $partid=$Apache::inputtags::part; |
|
my $internalid = $partid.'_'.$id; |
|
if ($target eq 'edit' ) { |
|
$result=&Apache::edit::end_table(); |
|
} elsif ($target eq 'web') { |
# Now is the time to render all of the stored splines |
# Now is the time to render all of the stored splines |
|
my $xmin=&Apache::lonxml::get_param('xmin',$parstack,$safeeval,-2); |
|
$xmin=(defined($xmin)?$xmin:-10); |
|
my $xmax=&Apache::lonxml::get_param('xmax',$parstack,$safeeval,-2); |
|
$xmax=(defined($xmax)?$xmax:10); |
|
my $ymin=&Apache::lonxml::get_param('ymin',$parstack,$safeeval,-2); |
|
$ymin=(defined($ymin)?$ymin:-10); |
|
my $ymax=&Apache::lonxml::get_param('ymax',$parstack,$safeeval,-2); |
|
$ymax=(defined($ymax)?$ymax:10); |
|
if ($xmax<=$xmin) { |
|
$xmax=$xmin+20; |
|
} |
|
if ($ymax<=$ymin) { |
|
$ymax=$ymin+20; |
|
} |
foreach my $label (keys(%Apache::functionplotresponse::splineorder)) { |
foreach my $label (keys(%Apache::functionplotresponse::splineorder)) { |
$result.=&generate_spline($internalid,$label); |
$result.=&generate_spline($internalid,$label,$xmin,$xmax,$ymin,$ymax); |
} |
} |
# close the init script |
# close the init script |
$result.=&end_init_script(); |
$result.=&end_init_script(); |
Line 1034 sub end_functionplotresponse {
|
Line 1161 sub end_functionplotresponse {
|
} |
} |
return $result; |
return $result; |
} |
} |
|
|
|
sub start_functionplotelements { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
my $result=''; |
|
my $id=$Apache::inputtags::response[-1]; |
|
my $partid=$Apache::inputtags::part; |
|
my $internalid = $partid.'_'.$id; |
|
|
|
if ($target eq 'edit') { |
|
return &Apache::edit::start_table($token). |
|
'<tr><td><span class="LC_nobreak">'.&mt('Function Plot Elements').'</span></td>' |
|
.'<td><span class="LC_nobreak">'.&mt('Delete?').' ' |
|
.&Apache::edit::deletelist($target,$token).' '. |
|
&Apache::edit::insertlist($target,$token) |
|
.'</span></td>' |
|
."<td> " |
|
.&Apache::edit::end_row() |
|
.&Apache::edit::start_spanning_row() |
|
."\n"; |
|
} elsif ($target eq 'web') { |
|
my $xmin=&Apache::lonxml::get_param('xmin',$parstack,$safeeval,-2); |
|
$xmin=(defined($xmin)?$xmin:-10); |
|
my $xmax=&Apache::lonxml::get_param('xmax',$parstack,$safeeval,-2); |
|
$xmax=(defined($xmax)?$xmax:10); |
|
my $ymin=&Apache::lonxml::get_param('ymin',$parstack,$safeeval,-2); |
|
$ymin=(defined($ymin)?$ymin:-10); |
|
my $ymax=&Apache::lonxml::get_param('ymax',$parstack,$safeeval,-2); |
|
$ymax=(defined($ymax)?$ymax:10); |
|
if ($xmax<=$xmin) { |
|
$xmax=$xmin+20; |
|
} |
|
if ($ymax<=$ymin) { |
|
$ymax=$ymin+20; |
|
} |
|
my $xaxisvisible=(&Apache::lonxml::get_param('xaxisvisible',$parstack,$safeeval,-2)=~/on|true|yes|1/i?'true':'false'); |
|
my $yaxisvisible=(&Apache::lonxml::get_param('yaxisvisible',$parstack,$safeeval,-2)=~/on|true|yes|1/i?'true':'false'); |
|
my $gridvisible=(&Apache::lonxml::get_param('gridvisible',$parstack,$safeeval,-2)=~/on|true|yes|1/i?'true':'false'); |
|
my $xlabel=&Apache::lonxml::get_param('xlabel',$parstack,$safeeval,-2); |
|
my $ylabel=&Apache::lonxml::get_param('ylabel',$parstack,$safeeval,-2); |
|
|
|
|
|
# paste in the update routine to receive stuff back from the applet |
|
$result.=&update_script($internalid); |
|
# start the initscript for this applet |
|
$result.=&start_init_script($internalid); |
|
# put the axis commands inside |
|
$result.=&axes_script($internalid,$xmin,$xmax,$ymin,$ymax,$xaxisvisible,$yaxisvisible,$gridvisible); |
|
$result.=&axes_label($internalid,$xlabel,$ylabel); |
|
# init script is left open |
|
} |
|
return $result; |
|
} |
|
|
1; |
1; |
|
|