dla: fix plack PATH_INFO

diff --git a/ffzg/barcode/dla.pl b/ffzg/barcode/dla.pl
index e5fa4ff..b379d17 100755 (executable)
--- a/ffzg/barcode/dla.pl
+++ b/ffzg/barcode/dla.pl
@@ -13,6 +13,8 @@ use autodie;
 my $q = new CGI;
 my $dbh = C4::Context->dbh;
 
+$ENV{REQUEST_URI} =~ s{/intranet/}{/cgi-bin/koha/}; # fix plack rewrite
+
 print
     $q->header( -charset => 'utf-8' ),
     , $q->start_html( -title => 'DLA RFID tag import from share' )