implement LIMIT enviroment var

[koha-eprints] / mkp-marc.pl

diff --git a/mkp-marc.pl b/mkp-marc.pl
index b95b8f6..286b9eb 100755 (executable)
--- a/mkp-marc.pl
+++ b/mkp-marc.pl
@@ -7,6 +7,8 @@ use autodie;
 use DBI;
 use Data::Dump qw/dump/;
 
+my $limit = $ENV{LIMIT} || 10;
+
 my $dsn = 'DBI:mysql:dbname=koha_ffzg';
 my $sql = qq{
 select
@@ -16,7 +18,7 @@ from items
        join biblioitems using (biblionumber)
        join biblio using (biblionumber)
 where location = 'MKP'
-limit 10
+limit $limit
 };
 
 my $path = "/dev/shm/$1" if $dsn =~ m/=(.+)/;