|
Lines 83-88
if ($shelfid && $format) {
Link Here
|
| 83 |
} |
83 |
} |
| 84 |
} |
84 |
} |
| 85 |
} |
85 |
} |
|
|
86 |
|
| 87 |
# If it was a CSV export we change the format after the export so the file extension is fine |
| 88 |
$format = "csv" if ($format =~ m/^\d+$/); |
| 89 |
|
| 86 |
print $query->header( |
90 |
print $query->header( |
| 87 |
-type => 'application/octet-stream', |
91 |
-type => 'application/octet-stream', |
| 88 |
-'Content-Transfer-Encoding' => 'binary', |
92 |
-'Content-Transfer-Encoding' => 'binary', |
|
Lines 95-103
if ($shelfid && $format) {
Link Here
|
| 95 |
} else { |
99 |
} else { |
| 96 |
push @messages, { type => 'error', code => 'does_not_exist' }; |
100 |
push @messages, { type => 'error', code => 'does_not_exist' }; |
| 97 |
} |
101 |
} |
| 98 |
|
|
|
| 99 |
# If it was a CSV export we change the format after the export so the file extension is fine |
| 100 |
$format = "csv" if ($format =~ m/^\d+$/); |
| 101 |
} |
102 |
} |
| 102 |
else { |
103 |
else { |
| 103 |
$template->param(csv_profiles => [ Koha::CsvProfiles->search({ type => 'marc' }) ]); |
104 |
$template->param(csv_profiles => [ Koha::CsvProfiles->search({ type => 'marc' }) ]); |
| 104 |
- |
|
|