From e1a90f66fddbc3e457ca018c24df5f055e0c28fa Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 16 Jan 2006 00:39:30 +0000
Subject: [PATCH] Asset/Template: bad call to session->db->read DatabaseLink,
 typo in sesssion

---
 lib/WebGUI/Asset/Template.pm | 4 ++--
 lib/WebGUI/DatabaseLink.pm   | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Asset/Template.pm b/lib/WebGUI/Asset/Template.pm
index 052d255ee..e61e898d6 100644
--- a/lib/WebGUI/Asset/Template.pm
+++ b/lib/WebGUI/Asset/Template.pm
@@ -204,11 +204,11 @@ sub getList {
 	my $session = shift;
 	my $namespace = shift;
 my $sql = "select asset.assetId, assetData.revisionDate from template left join asset on asset.assetId=template.assetId left join assetData on assetData.revisionDate=template.revisionDate and assetData.assetId=template.assetId where template.namespace=".$session->db->quote($namespace)." and template.showInForms=1 and asset.state='published' and assetData.revisionDate=(SELECT max(revisionDate) from assetData where assetData.assetId=asset.assetId and (assetData.status='approved' or assetData.tagId=".$session->db->quote($session->scratch->get("versionTag")).")) order by assetData.title";
-	my $sth = $session->db->read($sql,$session->dbSlave);
+	my $sth = $session->dbSlave->read($sql);
 	my %templates;
 	tie %templates, 'Tie::IxHash';
 	while (my ($id, $version) = $sth->array) {
-		$templates{$id} = WebGUI::Asset::Template->new($id,undef,$version)->getTitle;
+		$templates{$id} = WebGUI::Asset::Template->new($session,$id,undef,$version)->getTitle;
 	}	
 	$sth->finish;	
 	return \%templates;
diff --git a/lib/WebGUI/DatabaseLink.pm b/lib/WebGUI/DatabaseLink.pm
index 537638569..f7d0063ef 100644
--- a/lib/WebGUI/DatabaseLink.pm
+++ b/lib/WebGUI/DatabaseLink.pm
@@ -134,7 +134,7 @@ sub db {
 	my $username = $self->{_databaseLink}{username};
 	my $identifier = $self->{_databaseLink}{identifier};
 	if ($self->getId eq "0") {
-		$self->{_dbh} = $self->sesssion->db;
+		$self->{_dbh} = $self->session->db;
 		return $self->{_dbh};
 	} elsif ($dsn =~ /\DBI\:\w+\:\w+/i) {
 		eval{