oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Altered international messages.

Browse source
This commit is contained in:
Leendert Bottelberghs 2004-08-25 12:04:41 +00:00
parent 0c421bc0d1
commit f4812d0a71
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Wobject/MessageBoard.pm
View file

@ -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}]
);