public/code/issn.prosjek,rrp.pl

   1 lookup($row->{issn}, 'nabava', => 'issn', sub {
   2  my $stat = shift;
   3  foreach my $rrp ( ref $on->{rrp} eq 'ARRAY' ? @{$on->{rrp}} : $on->{rrp} ) {
   4   push @{ $update->{rrp} }, $rrp;
   5   $stat->add_data( $rrp );
   6  }
   7 },sub {
   8  my $stat = shift;
   9  $update->{prosjek} = $stat->mean;
  10 });
  11