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