From 3ea9f29a3ff32d5c1d462ec3cea842cdf3e7b76b Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 3 May 2010 19:29:55 -0700
Subject: [PATCH] add a method to save the new keywords from the from in
 www_byKeyword.

---
 lib/WebGUI/Asset/Wobject/WikiMaster.pm | 22 +++++++++++++++++++++-
 1 file changed, 21 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Asset/Wobject/WikiMaster.pm b/lib/WebGUI/Asset/Wobject/WikiMaster.pm
index ee3c9a2aa..b7df2821c 100644
--- a/lib/WebGUI/Asset/Wobject/WikiMaster.pm
+++ b/lib/WebGUI/Asset/Wobject/WikiMaster.pm
@@ -870,7 +870,7 @@ sub www_byKeyword {
     $p->appendTemplateVars($var);
     if ($self->canAdminister) {
         $var->{formHeader}  = WebGUI::Form::formHeader($session, {action => $self->getUrl, method => 'GET'})
-                            . WebGUI::Form::hidden($session, { name => 'func',        value => 'keywordKeywordSave',})
+                            . WebGUI::Form::hidden($session, { name => 'func',        value => 'subKeywordSave',})
                             . WebGUI::Form::hidden($session, { name => 'thisKeyword', value => $keyword,});
         my $subKeywords = join ', ', $self->getSubKeywords($keyword);
         $var->{keywordForm} = WebGUI::Form::keyword($session, {
@@ -984,4 +984,24 @@ sub www_search {
 	return $self->processStyle($self->processTemplate($var, $self->get('searchTemplateId')));
 }
 
+#-------------------------------------------------------------------
+
+=head2 www_subKeywordSave 
+
+Process the form from www_byKeyword and update the subkeywords for a keyword in this wiki.
+
+=cut
+
+sub www_subKeywordSave {
+	my $self = shift;
+    my $form = $self->session->form;
+
+    my $subKeywords = $form->process('subKeywords', 'keywords');
+    my $keyword     = $form->process('thisKeyword');
+    my @subKeywords = @{ WebGUI::Keyword::string2list($subKeywords) };
+    $self->setSubKeywords($keyword, @subKeywords);
+
+	return $self->www_byKeyword;
+}
+
 1;