From eb95900f160dfb3bda742ea3be96b239b3744d9d Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Wed, 14 Jul 2004 19:50:33 +0000
Subject: [PATCH] fixing bugs

---
 lib/WebGUI/Wobject/IndexedSearch.pm        | 6 ++++--
 lib/WebGUI/Wobject/IndexedSearch/Search.pm | 6 +++++-
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Wobject/IndexedSearch.pm b/lib/WebGUI/Wobject/IndexedSearch.pm
index d27f91f48..2c4ec675a 100644
--- a/lib/WebGUI/Wobject/IndexedSearch.pm
+++ b/lib/WebGUI/Wobject/IndexedSearch.pm
@@ -447,8 +447,7 @@ sub _buildFilter {
 #-------------------------------------------------------------------
 sub _getLanguages {
 	my ($self, $restricted) = @_;
-	my $international = WebGUI::SQL->buildHashRef("select distinct(IndexedSearch_docInfo.languageId), language.language from IndexedSearch_docInfo, language 
-		where language.languageId = IndexedSearch_docInfo.languageId");
+	my $international = WebGUI::SQL->buildHashRef("select distinct(languageId) from IndexedSearch_docInfo");
 	tie my %languages, 'Tie::IxHash';
 	if ($restricted and $self->get('languages') !~ /any/i) {
 		$languages{any} = WebGUI::International::get(24,$self->get("namespace"));
@@ -467,6 +466,9 @@ sub _getNamespaces {
 	my %international;
 	foreach my $wobject (@{$session{config}{wobjects}}){
 		my $cmd = "WebGUI::Wobject::".$wobject;
+                my $load = 'use '.$cmd;
+                eval($load);
+                WebGUI::ErrorHandler::warn("Wobject failed to compile: $cmd.".$@) if($@);
 		my $w = $cmd->new({namespace=>$wobject, wobjectId=>'new'});
 		$international{$wobject} = $w->name;
 	}
diff --git a/lib/WebGUI/Wobject/IndexedSearch/Search.pm b/lib/WebGUI/Wobject/IndexedSearch/Search.pm
index f03c7a07a..54045aa6e 100644
--- a/lib/WebGUI/Wobject/IndexedSearch/Search.pm
+++ b/lib/WebGUI/Wobject/IndexedSearch/Search.pm
@@ -21,6 +21,7 @@ use WebGUI::SQL;
 use WebGUI::URL;
 use WebGUI::HTML;
 use WebGUI::ErrorHandler;
+use WebGUI::Grouping;
 use DBIx::FullTextSearch::StopList;
 use WebGUI::Utility;
 use WebGUI::Session;
@@ -192,6 +193,9 @@ sub getDetails {
 	my (@searchDetails, %namespace);
 	foreach my $wobject (@{$session{config}{wobjects}}){
 		my $cmd = "WebGUI::Wobject::".$wobject;
+                my $load = 'use '.$cmd;
+                eval($load);
+                WebGUI::ErrorHandler::warn("Wobject failed to compile: $cmd.".$@) if($@);
 		my $w = $cmd->new({namespace=>$wobject, wobjectId=>'new'});
 		$namespace{$wobject} = $w->name;
 	}
@@ -684,7 +688,7 @@ Returns an array reference containing all groupIds of groups the user is in.
 sub _getGroups {
 	my @groups;
 	foreach my $groupId (WebGUI::SQL->buildArray("select groupId from groups")) {
-		push(@groups, $groupId) if (WebGUI::Privilege::isInGroup($groupId));
+		push(@groups, $groupId) if (WebGUI::Grouping::isInGroup($groupId));
 	}
 	return \@groups;
 }