public/code/issn.listprice.pl

   1 lookup($row->{issn}, 'nabava', => 'issn', sub {
   2   push @{ $update->{listprice} }, $on->{listprice};
   3   shift->add_data( $on->{listprice} );
   4 },sub {
   5  my $stat = shift;
   6  $update->{price_min} = $stat->min;
   7 # $update->{price_max} = $stat->max;
   8  $update->{price_check} = $stat->min * 5 - $row->{cijena}->[0];
   9 });
  10