|
Lines 1-4
Link Here
|
| 1 |
#!/usr/bin/perl |
1 |
#!/usr/bin/perl |
| 2 |
|
2 |
|
| 3 |
# This software is placed under the gnu General Public License, v2 (http://www.gnu.org/licenses/gpl.html) |
3 |
# This software is placed under the gnu General Public License, v2 (http://www.gnu.org/licenses/gpl.html) |
| 4 |
|
4 |
|
|
Lines 37-44
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 |
die() unless ( $field eq 'publishercode' || $field eq 'collectiontitle' ); |
| 42 |
|
42 |
|
| 43 |
binmode STDOUT, ":encoding(UTF-8)"; |
43 |
binmode STDOUT, ":encoding(UTF-8)"; |
| 44 |
print $input->header( -type => 'text/plain', -charset => 'UTF-8' ); |
44 |
print $input->header( -type => 'text/plain', -charset => 'UTF-8' ); |
| 45 |
- |
|
|