Bug 5600: very tiny follow-up to pass perlcritic

[koha.git] / tools / export.pl

diff --git a/tools/export.pl b/tools/export.pl
index c075b25..95b8185 100755 (executable)
--- a/tools/export.pl
+++ b/tools/export.pl
@@ -31,7 +31,6 @@ use Getopt::Long;
 
 my $query = new CGI;
 
-my $commandline = 0;
 my $op;
 my $filename;
 my $dbh         = C4::Context->dbh;
@@ -45,7 +44,9 @@ my $record_type;
 my $help;
 
 # Checks if the script is called from commandline
-if ( scalar @ARGV > 0 ) {
+my $commandline = not defined $ENV{GATEWAY_INTERFACE};
+
+if ( $commandline ) {
 
     # Getting parameters
     $op = 'export';
@@ -59,8 +60,6 @@ if ( scalar @ARGV > 0 ) {
         'record-type=s' => \$record_type,
         'help|?' => \$help
     );
-    $commandline = 1;
-
 
     if ($help) {
         print <<_USAGE_;
@@ -94,7 +93,7 @@ _USAGE_
     $record_type       ||= "bibs";
 
     # Redirect stdout
-    open STDOUT, ">$filename" if $filename;
+    open STDOUT, '>', $filename if $filename;
 
 } else {
 
@@ -449,7 +448,7 @@ sub getbackupfilelist {
     if ( opendir(my $dir, $directory) ) {
         while (my $file = readdir($dir)) {
             next unless ( $file =~ m/\.$extension(\.(gz|bz2|xz))?/ );
-            push @files, $file if ( -f "$backupdir/$file" && -r "$backupdir/$file" );
+            push @files, $file if ( -f "$directory/$file" && -r "$directory/$file" );
         }
         closedir($dir);
     }