From 8a3f36a44992f64497e57e67ea94369ecc80ff8d Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 24 Mar 2010 15:09:59 -0700
Subject: [PATCH] Fix an accessor name.

---
 lib/WebGUI/Asset/Wobject/Article.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject/Article.pm b/lib/WebGUI/Asset/Wobject/Article.pm
index 20996ecda..488606bf0 100644
--- a/lib/WebGUI/Asset/Wobject/Article.pm
+++ b/lib/WebGUI/Asset/Wobject/Article.pm
@@ -201,16 +201,16 @@ Indexing the content of attachments and user defined fields. See WebGUI::Asset::
 
 =cut
 
-sub indexContent {
+override indexContent => sub {
 	my $self = shift;
-	my $indexer = $self->SUPER::indexContent;
+	my $indexer = super();
 	$indexer->addKeywords($self->linkTitle);
-	$indexer->addKeywords($self->linkUrl);
+	$indexer->addKeywords($self->linkURL);
 	my $storage = $self->getStorageLocation;
 	foreach my $file (@{$storage->getFiles}) {
                $indexer->addFile($storage->getPath($file));
 	}
-}
+};
 
 #-------------------------------------------------------------------