From f4812d0a71d75c99843314d715565c9bec629429 Mon Sep 17 00:00:00 2001
From: Leendert Bottelberghs <bottelberghs@webgui-cvs>
Date: Wed, 25 Aug 2004 12:04:41 +0000
Subject: [PATCH] Altered international messages.

---
 lib/WebGUI/Wobject/MessageBoard.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Wobject/MessageBoard.pm b/lib/WebGUI/Wobject/MessageBoard.pm
index e7d19a8e3..855eb81cf 100644
--- a/lib/WebGUI/Wobject/MessageBoard.pm
+++ b/lib/WebGUI/Wobject/MessageBoard.pm
@@ -197,14 +197,15 @@ sub www_editForum {
 	if($session{form}{forumId} ne "new"){
 		my ($sth, $data, %MBoards);
 		tie %MBoards, "Tie::IxHash";
-		$MBoards{0} = "--- Move Forum ---";
+		$MBoards{0} = WebGUI::International::get(92, $_[0]->get("namespace"));
 		$sth = WebGUI::SQL->read("SELECT wobject.wobjectId, wobject.title as wobjectTitle, page.title as pageTitle FROM wobject LEFT JOIN page using(pageId) WHERE wobject.namespace='MessageBoard' and page.pageId NOT IN (2,3,4,5) AND wobject.wobjectId!=".quote($_[0]->get("wobjectId"))." order by page.title ASC");
 		while ($data = $sth->hashRef){
 			$MBoards{$data->{wobjectId}} = $data->{pageTitle}." - ".$data->{wobjectTitle};
 		}
 		$f->selectList(
 			-name=>"toMBoardId",
-			-label=>"Move Forum to Message Board",
+			-label=>WebGUI::International::get(90, $_[0]->get("namespace")),
+			-subtext=>WebGUI::International::get(91, $_[0]->get("namespace")),
 			-options=>\%MBoards,
 			-value=>[$session{form}{toMBoardId}]
 			);