From 99083bcb9ac23c5892bab13014317f6d73abcf01 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 14 Jan 2010 08:57:17 -0800
Subject: [PATCH] Remove some instances from Asset.pm of storing data in the
 object hash.

---
 lib/WebGUI/Asset.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index ca5f03304..9a23fe2dc 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -2116,7 +2116,7 @@ sub processTemplate {
         $var = { %{ $var }, %{ $self->getMetaDataAsTemplateVariables } };
         $var->{'controls'} = $self->getToolbar if $self->session->var->isAdminOn;
         my %vars = (
-            %{$self->{_properties}},
+            %{$self->get},
             'title'     => $self->getTitle,
             'menuTitle' => $self->getMenuTitle,
             %{$var},
@@ -2195,7 +2195,7 @@ sub publish {
                     $asset->purgeCache;
                 }
         }
-	$self->{_properties}{state} = "published";
+	$self->state("published");
 
     # Also publish any shortcuts to this asset that are in the trash
     my $shortcuts 
@@ -2546,7 +2546,7 @@ sub www_editSave {
         $object = $self->addChild({className=>$session->form->process("class","className")});	
         return $self->www_view unless defined $object;
         $object->{_parent} = $self;
-        $object->{_properties}{url} = undef;
+        $object->url(undef);
     } 
     else {
         if ($self->canEditIfLocked) {