From 80a551871787a568aefda2486a87678d87521d01 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Tue, 17 Jan 2006 03:57:18 +0000
Subject: [PATCH] addding test for Template fixed more session bugs

---
 lib/WebGUI/Asset.pm           |  2 +-
 lib/WebGUI/AssetVersioning.pm |  2 +-
 t/Asset/Template.t            | 43 +++++++++++++++++++++++++++++++++++
 t/_test.skeleton              |  5 ----
 4 files changed, 45 insertions(+), 7 deletions(-)
 create mode 100644 t/Asset/Template.t

diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index bb744f557..7226ce4f9 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -1290,7 +1290,7 @@ Purges all cache entries associated with this asset.
 
 sub purgeCache {
 	my $self = shift;
-	my $stow = $self->stow;
+	my $stow = $self->session->stow;
 	$stow->delete('assetLineage');
 	$stow->delete('assetClass');
 	$stow->delete('assetRevision');
diff --git a/lib/WebGUI/AssetVersioning.pm b/lib/WebGUI/AssetVersioning.pm
index 40fa4ba25..4a0a54aa2 100644
--- a/lib/WebGUI/AssetVersioning.pm
+++ b/lib/WebGUI/AssetVersioning.pm
@@ -61,7 +61,7 @@ sub addRevision {
 	$self->session->db->write("insert into assetData (assetId, revisionDate, revisedBy, tagId, status, url, startDate, endDate, 
 		ownerUserId, groupIdEdit, groupIdView) values (".$self->session->db->quote($self->getId).",".$now.", ".$self->session->db->quote($self->session->user->userId).", 
 		".$self->session->db->quote($versionTag).", ".$self->session->db->quote($status).", ".$self->session->db->quote($self->getId).", 997995720, 32472169200,'3','3','7')");
-        foreach my $definition (@{$self->definition}) {
+        foreach my $definition (@{$self->definition($self->session)}) {
                 unless ($definition->{tableName} eq "assetData") {
                         $self->session->db->write("insert into ".$definition->{tableName}." (assetId,revisionDate) values (".$self->session->db->quote($self->getId).",".$now.")");
                 }
diff --git a/t/Asset/Template.t b/t/Asset/Template.t
new file mode 100644
index 000000000..a7ba02dd7
--- /dev/null
+++ b/t/Asset/Template.t
@@ -0,0 +1,43 @@
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2006 Plain Black Corporation.
+#-------------------------------------------------------------------
+# Please read the legal notices (docs/legal.txt) and the license
+# (docs/license.txt) that came with this distribution before using
+# this software.
+#-------------------------------------------------------------------
+# http://www.plainblack.com                     info@plainblack.com
+#-------------------------------------------------------------------
+
+use strict;
+use lib '../../lib';
+use Getopt::Long;
+use WebGUI::Session;
+use WebGUI::Asset;
+use Test::More tests => 1; # increment this value for each test you create
+
+my $session = initialize();  # this line is required
+
+my $importNode = WebGUI::Asset->getImportNode($session);
+my $template = $importNode->addChild({className=>"WebGUI::Asset::Template", title=>"test", url=>"testingtemplates"});
+ok(defined $template, "creating a template");
+
+
+cleanup($session); # this line is required
+
+
+
+sub initialize {
+	$|=1; # disable output buffering
+	my $configFile;
+	GetOptions(
+        	'configFile=s'=>\$configFile
+	);
+	exit 1 unless ($configFile);
+	my $session = WebGUI::Session->open("../..",$configFile);
+}
+
+sub cleanup {
+	my $session = shift;
+	$session->close();
+}
+
diff --git a/t/_test.skeleton b/t/_test.skeleton
index 6837f77de..d3b7a7b99 100644
--- a/t/_test.skeleton
+++ b/t/_test.skeleton
@@ -8,14 +8,10 @@
 # http://www.plainblack.com                     info@plainblack.com
 #-------------------------------------------------------------------
 
-# ---- BEGIN DO NOT EDIT ----
 use strict;
 use lib '../lib';
 use Getopt::Long;
 use WebGUI::Session;
-# ---- END DO NOT EDIT ----
-
-
 use Test::More tests => 1; # increment this value for each test you create
 
 my $session = initialize();  # this line is required
@@ -25,7 +21,6 @@ my $session = initialize();  # this line is required
 cleanup($session); # this line is required
 
 
-# ---- DO NOT EDIT BELOW THIS LINE -----
 
 sub initialize {
 	$|=1; # disable output buffering