oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Moose subclassing for Asset/File/*

Browse source
This commit is contained in:
Colin Kuskie 2010-04-09 10:36:16 -07:00
parent c35f3b9ffb
commit d3a3c4d37e
4 changed files with 36 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Asset/File/ZipArchive.pm
View file

@ -142,10 +142,10 @@ this method to deflate the zip file into the proper folder
=cut
sub processPropertiesFromFormPost {
override processPropertiesFromFormPost => sub {
my $self = shift;
#File should be saved here by the superclass
$self->SUPER::processPropertiesFromFormPost;
super();
my $storage = $self->getStorageLocation();
my $file = $self->filename;
@ -169,7 +169,7 @@ sub processPropertiesFromFormPost {
unless ($self->unzip($storage,$self->filename)) {
$self->session->errorHandler->warn($i18n->get("unzip_error"));
}
}
};
#-------------------------------------------------------------------