|
Lines 37-43
my $table = $input->param('table');
Link Here
|
| 37 |
my $field = $input->param('field'); |
37 |
my $field = $input->param('field'); |
| 38 |
|
38 |
|
| 39 |
# Prevent from disclosing data |
39 |
# Prevent from disclosing data |
| 40 |
die() unless ($table eq "biblioitems"); |
40 |
die() unless ($table eq "biblioitems"); |
|
|
41 |
die() unless ($field eq 'publishercode' || $field eq 'collectiontitle'); |
| 41 |
|
42 |
|
| 42 |
binmode STDOUT, ":encoding(UTF-8)"; |
43 |
binmode STDOUT, ":encoding(UTF-8)"; |
| 43 |
print $input->header( -type => 'text/plain', -charset => 'UTF-8' ); |
44 |
print $input->header( -type => 'text/plain', -charset => 'UTF-8' ); |
| 44 |
- |
|
|