Changeset 14434

Timestamp:

Aug 8, 2007, 10:39:15 AM (19 years ago)

Author:

Paul Price

Message:

Adding max and min operations.

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm (modified) (2 diffs)

trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Stats.pm,v 1.22 2007-07-11 01:18:03 eugene Exp $
+# $Id: Stats.pm,v 1.23 2007-08-08 20:39:15 price Exp $
 
 package PS::IPP::Metadata::Stats;
@@ -146 +146 @@
             }
         }
+
+        if ($type eq "max") {
+            if (scalar @$data > 0) {
+                # Get statistics on the value
+                my $stats = Statistics::Descriptive::Sparse->new(); # Statistics calculator
+                $stats->add_data(@$data);
+                $entry->{value} = $stats->max();
+            } else {
+                $self->_null_for_type ($entry);
+            }
+        }
+
+        if ($type eq "min") {
+            if (scalar @$data > 0) {
+                # Get statistics on the value
+                my $stats = Statistics::Descriptive::Sparse->new(); # Statistics calculator
+                $stats->add_data(@$data);
+                $entry->{value} = $stats->min();
+            } else {
+                $self->_null_for_type ($entry);
+            }
+        }
+
     }