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

Arggh. Stupid copy paste errors.

Browse source
This commit is contained in:
Martin Kamerbeek 2006-05-09 16:00:43 +00:00
parent b20b5613e8
commit 11cba74195
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -103,7 +103,7 @@ sub addSlice {
topHeight => $self->getTopHeight,
bottomHeight => $self->getBottomHeight,
explosionLength => $self->getExplosionLength,
scaleFactor => $self->getScaleFactor || 1,
scaleFactor => $self->getScaleFactor,
# keep the slice number for debugging properties
sliceNr => scalar(@{$self->{_slices}}),
@ -925,7 +925,6 @@ Defaults to 1.
sub getScaleFactor {
my $self = shift;
return 1 unless (defined $self->{_pieProperties}->{scaleFactor});
return $self->{_pieProperties}->{scaleFactor} || '1';
}
@ -1078,8 +1077,6 @@ sub processDataset {
my $stepsize = ($self->getTopHeight + $self->getBottomHeight) / scalar(@{$self->getDataset});
foreach (@{$self->getDataset}) {
$dataIndex;
$self->addSlice({
percentage => $_ / $total,
label => $self->getLabel($dataIndex),
@ -1260,7 +1257,7 @@ The figure with which the the normal radius if the slices should be multiplied.
=cut
sub getScaleFactor {
sub setScaleFactor {
my $self = shift;
my $scaleFactor = shift;