fixed file upload bug.

This commit is contained in:
Matthew Wilson 2005-11-04 05:52:37 +00:00
parent c01d7e49d5
commit e96908842a

View file

@ -195,8 +195,8 @@ sub getStorageLocation {
sub processPropertiesFromFormPost {
my $self = shift;
$self->SUPER::processPropertiesFromFormPost;
my $storage = $self->getStorageLocation;
delete $self->{_storageLocation};
my $storage = $self->getStorageLocation;
my $filename = $storage->addFileFromFormPost("file");
if (defined $filename) {
my %data;