Index: /trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm
===================================================================
--- /trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm	(revision 8505)
+++ /trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm	(revision 8506)
@@ -1,5 +1,5 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Stats.pm,v 1.2 2006-08-15 21:50:27 price Exp $
+# $Id: Stats.pm,v 1.3 2006-08-23 05:25:07 price Exp $
 
 package PS::IPP::Metadata::Stats;
@@ -14,5 +14,5 @@
 
 use base qw( Class::Accessor::Fast );
-__PACKAGE__->mk_accessors( qw( bg_mean bg_stdev bg_mean_stdev constants variables ) );
+__PACKAGE__->mk_accessors( qw( bg_mean bg_stdev bg_mean_stdev constants variables bg_data bg_stdev_data ) );
 
 #$::RD_TRACE = 1;
@@ -30,4 +30,6 @@
 		 constants => $constants, # Array of values that should be constant through the FPA
 		 variables => $variables, # Array of values that may be variable through the FPA
+		 bg_data => [], # Array of background values
+		 bg_stdev_data => [],# Array of background standard deviations
 		 data => {}	# The data
 		 };
@@ -56,7 +58,4 @@
     my $self = shift;		# Where we'll put the information
     my $md = shift;		# Parsed metadata, from PS::IPP::Metadata::Config
-
-    my @backgrounds;		# Array of background measurements
-    my @bgStdevs;		# Array of background standard deviations
 
     # Descend the FPA hierarchy
@@ -81,5 +80,5 @@
 				}
 				$bgStdevName = $cellItem->{name};
-				push @bgStdevs, $cellItem->{value};
+				push @$self->{bg_stdev_data}, $cellItem->{value};
 			    } else {
 				if (defined $bgName) {
@@ -89,5 +88,5 @@
 				}
 				$bgName = $cellItem->{name};
-				push @backgrounds, $cellItem->{value};
+				push @$self->{bg_data}, $cellItem->{value};
 			    }
 			} else {
@@ -134,7 +133,7 @@
     
     # Get mean, stdev, mean stdev for the background
-    if (scalar @backgrounds > 0) {
+    if (scalar @$self->{bg_data} > 0) {
 	my $meanStats = Statistics::Descriptive::Sparse->new(); # Statistics for mean
-	$meanStats->add_data(@backgrounds);
+	$meanStats->add_data(@$self->{bg_data});
 	$self->bg_mean($meanStats->mean());
 	$self->bg_stdev($meanStats->standard_deviation());
@@ -143,7 +142,7 @@
 	$self->bg_stdev(undef);
     }
-    if (scalar @bgStdevs > 0) {
+    if (scalar @$self->{bg_stdev_data} > 0) {
 	my $stdevStats = Statistics::Descriptive::Sparse->new(); # Statistics for standard deviation
-	$stdevStats->add_data(@bgStdevs);
+	$stdevStats->add_data(@self->{bg_stdev_data});
 	$self->bg_mean_stdev($stdevStats->mean());
     } else {