Bug 21395: Make perlcritic happy

[srvgit] / tools / export.pl

diff --git a/tools/export.pl b/tools/export.pl
index e2d75d3..5ef531a 100755 (executable)
--- a/tools/export.pl
+++ b/tools/export.pl
@@ -39,7 +39,12 @@ my $record_type       = $query->param("record_type");
 my $op                = $query->param("op") || '';
 my $output_format     = $query->param("format") || $query->param("output_format") || 'iso2709';
 my $backupdir         = C4::Context->config('backupdir');
-my $filename          = $query->param("filename") || ( $output_format eq 'csv' ? 'koha.csv' : 'koha.mrc' );
+my $filename;
+if ( $record_type eq 'auths' ) {
+    $filename = $query->param("filename_auth") || ( $output_format eq 'xml' ? 'koha.xml' : 'koha.mrc' );
+} else {
+    $filename = $query->param("filename") || ( $output_format eq 'csv' ? 'koha.csv' : 'koha.mrc' );
+}
 $filename =~ s/(\r|\n)//;
 
 my $dbh = C4::Context->dbh;
@@ -88,8 +93,6 @@ if ( $op eq "export" ) {
     my @biblionumbers      = $query->multi_param("biblionumbers");
     my @itemnumbers        = $query->multi_param("itemnumbers");
     my $strip_items_not_from_libraries =  $query->param('strip_items_not_from_libraries');
-    my @sql_params;
-    my $sql_query;
 
     my $libraries = Koha::Libraries->search_filtered->unblessed;
     my $only_export_items_for_branches = $strip_items_not_from_libraries ? \@branch : undef;