View | Details | Raw Unified | Return to bug 14647
Collapse All | Expand All

(-)a/tools/export.pl (-2 / +6 lines)
Lines 39-45 my $record_type = $query->param("record_type"); Link Here
39
my $op                = $query->param("op") || '';
39
my $op                = $query->param("op") || '';
40
my $output_format     = $query->param("format") || $query->param("output_format") || 'iso2709';
40
my $output_format     = $query->param("format") || $query->param("output_format") || 'iso2709';
41
my $backupdir         = C4::Context->config('backupdir');
41
my $backupdir         = C4::Context->config('backupdir');
42
my $filename          = $query->param("filename") || ( $output_format eq 'csv' ? 'koha.csv' : 'koha.mrc' );
42
my $filename;
43
if ( $record_type eq 'auths' ) {
44
    $filename = $query->param("filename_auth") || ( $output_format eq 'xml' ? 'koha.xml' : 'koha.mrc' );
45
} else {
46
    $filename = $query->param("filename") || ( $output_format eq 'csv' ? 'koha.csv' : 'koha.mrc' );
47
}
43
$filename =~ s/(\r|\n)//;
48
$filename =~ s/(\r|\n)//;
44
49
45
my $dbh = C4::Context->dbh;
50
my $dbh = C4::Context->dbh;
46
- 

Return to bug 14647