provide Statistics::Descriptive callback for repeatable values

[MojoFacets.git] / public / code / issn.listprice.pl

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];
 });