From c76c1bded7ee4762ed0feab92f5d23c0b5f38cae Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 14 Jan 2006 19:25:20 +0000
Subject: [PATCH] flip sense of object detection in datetime so that it creates
 and caches object. make DateTime::time return time(), like it used to.

---
 lib/WebGUI/Session.pm          | 4 ++--
 lib/WebGUI/Session/DateTime.pm | 3 +--
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/lib/WebGUI/Session.pm b/lib/WebGUI/Session.pm
index b0a4bb0b1..f07fb8e6c 100644
--- a/lib/WebGUI/Session.pm
+++ b/lib/WebGUI/Session.pm
@@ -147,8 +147,8 @@ Returns a WebGUI::Session::DateTime object.
 
 sub datetime {
 	my $self = shift;
-	if (exists $self->{_datetime}) {
-		$self->{_datetime} = WebGUI::Session::DateTime->new($self->session);
+	unless (exists $self->{_datetime}) {
+		$self->{_datetime} = WebGUI::Session::DateTime->new($self);
 	}
 	return $self->{_datetime};
 }
diff --git a/lib/WebGUI/Session/DateTime.pm b/lib/WebGUI/Session/DateTime.pm
index 505c21615..428173cc4 100644
--- a/lib/WebGUI/Session/DateTime.pm
+++ b/lib/WebGUI/Session/DateTime.pm
@@ -726,8 +726,7 @@ Returns an epoch date for now.
 =cut
 
 sub time {
-	my $self = shift;
-	return $self->session->datetime->time();
+	return time();
 }
 
 #-------------------------------------------------------------------