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

Form/File will automatically delete empty storage locations, but assets

Browse source 
expect them to stick around.  Add a flag to Form/File.pm to prevent it
from deleting them.  Make sensitive assets use that flag.
This commit is contained in:
Colin Kuskie 2009-07-23 16:50:57 +00:00
parent 69a07bb672
commit bd924e8f88
4 changed files with 23 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/Form/File.pm
View file

@ -65,6 +65,11 @@ A url that will get a filename appended to it and then links to delete the files
Though not all browsers support it, this will attempt to set the size (or width) of the browse for file field.
=head4 persist
The default behavior of File is to delete empty storage location. However, this causes problems with Assets, which
expect them to stick around. Setting persist => 1 will prevent the deletion.
=cut
sub definition {
@ -83,6 +88,9 @@ sub definition {
},
size=>{
defaultValue=>40
},
persist=>{
defaultValue=>0,
},
});
return $class->SUPER::definition($session, $definition);
@ -195,7 +203,7 @@ sub getValue {
}
$storage->addFileFromFormPost($self->get("name")."_file",1000);
my @files = @{ $storage->getFiles };
if (scalar(@files) < 1) {
if (scalar(@files) < 1 && !$self->get('persist')) {
$storage->delete;
return undef;
}