simple lookup on scalar values

diff --git a/public/code/issn.listprice.pl b/public/code/issn.listprice.pl
new file mode 100644 (file)
index 0000000..080e615
--- /dev/null
+++ b/public/code/issn.listprice.pl
@@ -0,0 +1,4 @@
+lookup($row->{issn}, 'nabava', => 'issn', sub {
+  push @{ $update->{listprice} }, $on->{listprice};
+});
+