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

Storage constructors need session variables

Browse source
This commit is contained in:
Colin Kuskie 2006-01-18 21:43:01 +00:00
parent 4e90fb26f5
commit 1fdc49b3bf
7 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Asset/File.pm
View file

@ -182,7 +182,7 @@ sub getStorageLocation {
my $self = shift;
unless (exists $self->{_storageLocation}) {
if ($self->get("storageId") eq "") {
$self->{_storageLocation} = WebGUI::Storage->create;
$self->{_storageLocation} = WebGUI::Storage->create($self->session);
$self->update({storageId=>$self->{_storageLocation}->getId});
} else {
$self->{_storageLocation} = WebGUI::Storage->get($self->session,$self->get("storageId"));

2
lib/WebGUI/Asset/Post.pm
View file

@ -383,7 +383,7 @@ sub getStorageLocation {
my $self = shift;
unless (exists $self->{_storageLocation}) {
if ($self->get("storageId") eq "") {
$self->{_storageLocation} = WebGUI::Storage::Image->create;
$self->{_storageLocation} = WebGUI::Storage::Image->create($self->session);
$self->update({storageId=>$self->{_storageLocation}->getId});
} else {
$self->{_storageLocation} = WebGUI::Storage::Image->get($self->session,$self->get("storageId"));

2
lib/WebGUI/Asset/Wobject/HttpProxy.pm
View file

@ -93,7 +93,7 @@ sub getCookieJar {
my $self = shift;
my $storage;
unless ($self->get("cookieJarStorageId")) {
$storage = WebGUI::Storage->create;
$storage = WebGUI::Storage->create($self->session);
$self->update({cookieJarStorageId=>$storage->getId});
} else {
$storage = WebGUI::Storage->get($self->session,$self->get("cookieJarStorageId"));

2
lib/WebGUI/Asset/Wobject/Product.pm
View file

@ -58,7 +58,7 @@ sub _duplicateFile {
#-------------------------------------------------------------------
sub _save {
my $self = shift;
my $file = WebGUI::Storage::Image->create;
my $file = WebGUI::Storage::Image->create($self->session);
my $filename = $file->addFileFromFormPost($_[0]);
unless ($filename) {
$file->delete;

2
lib/WebGUI/Auth/WebGUI.pm
View file

@ -169,7 +169,7 @@ sub createAccount {
}
my $i18n = WebGUI::International->new($self->session);
$vars->{'create.message'} = $_[0] if ($_[0]);
my $storage = WebGUI::Storage::Image->createTemp;
my $storage = WebGUI::Storage::Image->createTemp($self->session);
my ($filename, $challenge) = $storage->addFileFromCaptcha;
$vars->{useCaptcha} = $self->session->setting->get("webguiUseCaptcha");
if ($vars->{useCaptcha}) {

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

@ -156,7 +156,7 @@ sub getValueFromPost {
$storage = WebGUI::Storage::Image->get($self->session,$value);
}
else {
$storage = WebGUI::Storage::Image->create;
$storage = WebGUI::Storage::Image->create($self->session);
}
$storage->addFileFromFormPost($self->get("name"));
my @files = @{ $storage->getFiles };

4
lib/WebGUI/Storage.pm
View file

@ -37,7 +37,7 @@ This package provides a mechanism for storing and retrieving files that are not
=head1 SYNOPSIS
use WebGUI::Storage;
$store = WebGUI::Storage->create;
$store = WebGUI::Storage->create($self->session);
$store = WebGUI::Storage->get($self->session,$id);
$filename = $store->addFileFromFilesystem($pathToFile);
@ -294,7 +294,7 @@ Copies a storage location and it's contents. Returns a new storage location obje
sub copy {
my $self = shift;
my $newStorage = WebGUI::Storage->create;
my $newStorage = WebGUI::Storage->create($self->session);
my $filelist = $self->getFiles(1);
foreach my $file (@{$filelist}) {
my $source = FileHandle->new($self->getPath($file),"r");