bunch of bug fixes
This commit is contained in:
parent
9a57b0df47
commit
15fe4edfab
4 changed files with 26 additions and 5 deletions
|
|
@ -320,6 +320,23 @@ sub create {
|
|||
$self->_makePath;
|
||||
return $self;
|
||||
}
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
=head2 createTemp ( )
|
||||
|
||||
Creates a temporary storage location on the file system.
|
||||
|
||||
=cut
|
||||
|
||||
sub createTemp {
|
||||
my $class = shift;
|
||||
my $id = WebGUI::Id::generate();
|
||||
$id =~ m/^(.{2})/;
|
||||
my $self = {_id => $id, _part1 => 'temp', _part2 => $1};
|
||||
bless $self, ref($class)||$class;
|
||||
$self->_makePath;
|
||||
return $self;
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue