From 1fdc49b3bf884fb5529c8f8ddc14b64d73157958 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 18 Jan 2006 21:43:01 +0000
Subject: [PATCH] Storage constructors need session variables

---
 lib/WebGUI/Asset/File.pm              | 2 +-
 lib/WebGUI/Asset/Post.pm              | 2 +-
 lib/WebGUI/Asset/Wobject/HttpProxy.pm | 2 +-
 lib/WebGUI/Asset/Wobject/Product.pm   | 2 +-
 lib/WebGUI/Auth/WebGUI.pm             | 2 +-
 lib/WebGUI/Form/File.pm               | 2 +-
 lib/WebGUI/Storage.pm                 | 4 ++--
 7 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/lib/WebGUI/Asset/File.pm b/lib/WebGUI/Asset/File.pm
index 56cea1d5b..b64acbe25 100644
--- a/lib/WebGUI/Asset/File.pm
+++ b/lib/WebGUI/Asset/File.pm
@@ -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"));
diff --git a/lib/WebGUI/Asset/Post.pm b/lib/WebGUI/Asset/Post.pm
index db4b225e4..417825114 100644
--- a/lib/WebGUI/Asset/Post.pm
+++ b/lib/WebGUI/Asset/Post.pm
@@ -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"));
diff --git a/lib/WebGUI/Asset/Wobject/HttpProxy.pm b/lib/WebGUI/Asset/Wobject/HttpProxy.pm
index b883562c8..73d60994d 100644
--- a/lib/WebGUI/Asset/Wobject/HttpProxy.pm
+++ b/lib/WebGUI/Asset/Wobject/HttpProxy.pm
@@ -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"));
diff --git a/lib/WebGUI/Asset/Wobject/Product.pm b/lib/WebGUI/Asset/Wobject/Product.pm
index 90ac5f9e1..b2afdc375 100644
--- a/lib/WebGUI/Asset/Wobject/Product.pm
+++ b/lib/WebGUI/Asset/Wobject/Product.pm
@@ -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;
diff --git a/lib/WebGUI/Auth/WebGUI.pm b/lib/WebGUI/Auth/WebGUI.pm
index e7ea9f539..e7dd49f0f 100644
--- a/lib/WebGUI/Auth/WebGUI.pm
+++ b/lib/WebGUI/Auth/WebGUI.pm
@@ -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}) {
diff --git a/lib/WebGUI/Form/File.pm b/lib/WebGUI/Form/File.pm
index 7068158a8..a8a6a468b 100644
--- a/lib/WebGUI/Form/File.pm
+++ b/lib/WebGUI/Form/File.pm
@@ -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 };
diff --git a/lib/WebGUI/Storage.pm b/lib/WebGUI/Storage.pm
index a899cc21e..186c7ab6a 100644
--- a/lib/WebGUI/Storage.pm
+++ b/lib/WebGUI/Storage.pm
@@ -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");