From 7b274989126ceb5c3d882c2a73b7709ff38ef5ae Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 2 Jun 2010 19:59:14 -0700
Subject: [PATCH] Change ->get to direct object accessors.

---
 lib/WebGUI/AssetClipboard.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/AssetClipboard.pm b/lib/WebGUI/AssetClipboard.pm
index 389f0cc09..51b370912 100644
--- a/lib/WebGUI/AssetClipboard.pm
+++ b/lib/WebGUI/AssetClipboard.pm
@@ -199,18 +199,19 @@ sub paste {
     my $outputSub    = shift;
     my $session      = $self->session;
 	my $pastedAsset  = WebGUI::Asset->newById($session,$assetId);
-	return 0 unless ($self->get("state") eq "published");
+	return 0 unless ($self->state eq "published");
     return 0 unless ($pastedAsset->canPaste());  ##Allow pasted assets to have a say about pasting.
 
     # Don't allow a shortcut to create an endless loop
-	return 0 if ($pastedAsset->get("className") eq "WebGUI::Asset::Shortcut" && $pastedAsset->get("shortcutToAssetId") eq $self->getId);
+	return 0 if ($pastedAsset->isa("WebGUI::Asset::Shortcut") && $pastedAsset->shortcutToAssetId eq $self->getId);
     my $i18n=WebGUI::International->new($session, 'Asset');
     $outputSub->(sprintf $i18n->get('pasting %s'), $pastedAsset->getTitle) if defined $outputSub;
-	if ($self->getId eq $pastedAsset->get("parentId") || $pastedAsset->setParent($self)) {
+	if ($self->getId eq $pastedAsset->parentId || $pastedAsset->setParent($self)) {
 		$pastedAsset->publish(['clipboard','clipboard-limbo']); # Paste only clipboard items
 		$pastedAsset->updateHistory("pasted to parent ".$self->getId);
         
         # Update lineage in search index.
+        $self->purgeCache;
         my $updateAssets = $pastedAsset->getLineage(['self', 'descendants'], {returnObjects => 1});
  
         foreach (@{$updateAssets}) {