provide Statistics::Descriptive callback for repeatable values

diff --git a/Makefile.PL b/Makefile.PL
index 8a56459..29d5e24 100755 (executable)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -12,6 +12,7 @@ requires 'JSON';
 requires 'HTML::TableExtract';
 requires 'File::Path';
 requires 'Text::Unaccent::PurePerl';
+requires 'Statistics::Descriptive';
 
 features(
        'profile' => [

diff --git a/bin/debian-install.sh b/bin/debian-install.sh
index 4836cdc..019f9e6 100755 (executable)
--- a/bin/debian-install.sh
+++ b/bin/debian-install.sh
@@ -1,3 +1,3 @@
 #!/bin/sh -x
 
-sudo apt-get install libhtml-tableextract-perl libjson-perl libmodule-install-perl
+sudo apt-get install libhtml-tableextract-perl libjson-perl libmodule-install-perl libstatistics-descriptive-perl

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index 7782ba3..c6110d5 100644 (file)
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -15,6 +15,7 @@ use Time::HiRes qw(time);
 use File::Path qw(mkpath);
 use Text::Unaccent::PurePerl;
 use Digest::MD5;
+use Statistics::Descriptive;
 
 use MojoFacets::Import::File;
 use MojoFacets::Import::HTMLTable;
@@ -649,7 +650,7 @@ sub __commit_end {
 
 sub lookup {
        warn "# lookup ",dump @_;
-       my ( $vals, $on_path, $on_col, $code ) = @_;
+       my ( $vals, $on_path, $on_col, $code, $stat_code ) = @_;
        die "code is not sub{ ... } but ", dump $code unless ref $code eq 'CODE';
 
        if ( ! exists $loaded->{$on_path} ) {
@@ -681,12 +682,16 @@ sub lookup {
                #warn "XXX ",dump $lookup_path_col->{$on_path}->{$on_col};
        }
 
+       my $stat;
+       $stat = Statistics::Descriptive::Full->new() if $stat_code;
+
        foreach my $v ( @$vals ) {
                foreach my $i ( @{ $lookup_path_col->{$on_path}->{$on_col}->{$v} } ) {
                        $on = $items->[$i];
                        #warn "XXX lookup code $v $i ",dump $on;
-                       $code->();
+                       $code->($stat);
                }
+               $stat_code->( $stat ) if $stat_code;
        }
 }
 

diff --git a/public/code/issn.listprice.pl b/public/code/issn.listprice.pl
index 080e615..a87e526 100644 (file)
--- a/public/code/issn.listprice.pl
+++ b/public/code/issn.listprice.pl
@@ -1,4 +1,10 @@
 lookup($row->{issn}, 'nabava', => 'issn', sub {
   push @{ $update->{listprice} }, $on->{listprice};
+  shift->add_data( $on->{listprice} );
+},sub {
+ my $stat = shift;
+ $update->{price_min} = $stat->min;
+# $update->{price_max} = $stat->max;
+ $update->{price_check} = $stat->min * 5 - $row->{cijena}->[0];
 });