Revision 7822
Added by ben leinfelder over 11 years ago
| src/perl/register-dataset.cgi | ||
|---|---|---|
| 1340 | 1340 |
|
| 1341 | 1341 |
sub deleteFile {
|
| 1342 | 1342 |
my $input = shift; |
| 1343 |
my $fileName = $tempDir . "/" . $input; |
|
| 1343 |
#my $fileName = $tempDir . "/" . $input; |
|
| 1344 |
my $fileName = $input; |
|
| 1344 | 1345 |
|
| 1345 | 1346 |
if ( -e $fileName ) {
|
| 1346 | 1347 |
unlink $fileName |
Also available in: Unified diff
correctly delete data file when we are done with it. https://projects.ecoinformatics.org/ecoinfo/issues/6007