From 10d96d38167c9108ea5b28ff684eef733f632c7a Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 9 May 2010 15:01:22 -0700
Subject: [PATCH] Update help for new operational code.

---
 t/Help/related.t | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/t/Help/related.t b/t/Help/related.t
index 7ca1494e9..b3c31e2f4 100644
--- a/t/Help/related.t
+++ b/t/Help/related.t
@@ -28,14 +28,14 @@ my $numTests = 0;
 
 my $session = WebGUI::Test->session;
 
-my @helpFileSet = WebGUI::Operation::Help::_getHelpFilesList($session);
+my @helpFileSet = WebGUI::Pluggable::findAndLoad('WebGUI::Help');
 
 my %helpTable;
 
 foreach my $helpSet (@helpFileSet) {
-	my $helpName = $helpSet->[1];
-	my $help = WebGUI::Operation::Help::_load($session, $helpName);
-	$helpTable{ $helpName } = $help;
+    my ($namespace) = $helpSet =~ m{WebGUI::Help::(.+$)};
+	my $help = WebGUI::Operation::Help::_load($session, $namespace);
+	$helpTable{ $namespace } = $help;
 }
 
 ##Scan #1, how many tests do we expect?