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

(-)a/tools/export.pl (-2 / +1 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") || 'koha.mrc';
42
my $filename          = $query->param("filename") || ( $output_format eq 'csv' ? 'koha.csv' : 'koha.mrc' );
43
$filename =~ s/(\r|\n)//;
43
$filename =~ s/(\r|\n)//;
44
44
45
my $dbh = C4::Context->dbh;
45
my $dbh = C4::Context->dbh;
46
- 

Return to bug 17395