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