Revision 7820
Added by ben leinfelder almost 10 years ago
| Metacat.pm | ||
|---|---|---|
| 259 | 259 |
my $self = shift; |
| 260 | 260 |
my $docid = shift; |
| 261 | 261 |
my $datafile = shift; |
| 262 |
my $filename = shift; |
|
| 262 | 263 |
|
| 263 | 264 |
my $returnval = 0; |
| 264 | 265 |
|
| 265 | 266 |
my %postData = ( action => 'upload', |
| 266 | 267 |
docid => $docid, |
| 267 | 268 |
datafile => [$datafile], |
| 269 |
filename => $filename, |
|
| 268 | 270 |
enctype => 'form-data' |
| 269 | 271 |
); |
| 270 | 272 |
|
Also available in: Unified diff
send the original filename in the upload() method since that is supported by the Metacat API. https://projects.ecoinformatics.org/ecoinfo/issues/6007