oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixing a very weird bug in the Pie Chart

Browse source
This commit is contained in:
Martin Kamerbeek 2006-05-09 15:50:46 +00:00
parent 22d30f3f47
commit d5dfa4b84d
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/Image/Graph/Pie.pm
View file

@ -61,12 +61,12 @@ sub addSlice {
my $properties = shift;
my $percentage = $properties->{percentage};
# Work around a bug in imagemagick where an A path with the same start and end point will segfault.
if ($percentage == 1) {
$percentage = 0.9999999;
$percentage = 0.999999999;
}
my $label = $properties->{label};
my $color = $properties->{color};
@ -103,7 +103,7 @@ sub addSlice {
topHeight => $self->getTopHeight,
bottomHeight => $self->getBottomHeight,
explosionLength => $self->getExplosionLength,
scaleFactor => $self->getScaleFactor,
scaleFactor => $self->getScaleFactor || 1,
# keep the slice number for debugging properties
sliceNr => scalar(@{$self->{_slices}}),
@ -387,7 +387,7 @@ Draws the pie chart.
sub draw {
my ($currentSlice, $coordinates, $sliceData, $leftPlaneVisible, $rightPlaneVisible);
my $self = shift;
$self->processDataset;
# Draw slices in the correct order or you'll get an MC Escher.
@ -925,7 +925,8 @@ Defaults to 1.
sub getScaleFactor {
my $self = shift;
return $self->{_pieProperties}->{scaleFactor} || 1;
return 1 unless (defined $self->{_pieProperties}->{scaleFactor});
return $self->{_pieProperties}->{scaleFactor} || '1';
}
#-------------------------------------------------------------------