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