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 |
- |
|
|