From c0a822ef1f1a17ba7e5793d7bc109a438d0241f3 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Tue, 4 Jan 2011 20:09:15 -0600
Subject: [PATCH] move Account Friends editSettingsForm to FormBuilder

---
 lib/WebGUI/Account/Friends.pm          | 20 ++++++++++----------
 t/tests/Test/WebGUI/Account/Friends.pm | 18 ++++++++++++++++++
 2 files changed, 28 insertions(+), 10 deletions(-)
 create mode 100644 t/tests/Test/WebGUI/Account/Friends.pm

diff --git a/lib/WebGUI/Account/Friends.pm b/lib/WebGUI/Account/Friends.pm
index 1b5a5902e..fe4d01504 100644
--- a/lib/WebGUI/Account/Friends.pm
+++ b/lib/WebGUI/Account/Friends.pm
@@ -86,37 +86,37 @@ sub editSettingsForm {
     my $self    = shift;
     my $session = $self->session;
     my $i18n    = WebGUI::International->new($session,'Account_Friends');
-    my $f       = WebGUI::HTMLForm->new($session);
+    my $f       = WebGUI::FormBuilder->new($session);
 
-    $f->template(
+    $f->addField( "template",
 		name      => "friendsStyleTemplateId",
 		value     => $self->getStyleTemplateId,
 		namespace => "style",
 		label     => $i18n->get("friends style template label"),
         hoverHelp => $i18n->get("friends style template hoverHelp")
 	);
-	$f->template(
+	$f->addField( "template",
 		name      => "friendsLayoutTemplateId",
 		value     => $self->getLayoutTemplateId,
 		namespace => "Account/Layout",
 		label     => $i18n->get("friends layout template label"),
         hoverHelp => $i18n->get("friends layout template hoverHelp")
 	);
-	$f->template(
+	$f->addField( "template",
         name      => "friendsViewTemplateId",
         value     => $self->getViewTemplateId,
         namespace => "Account/Friends/View",
         label     => $i18n->get("friends view template label"),
         hoverHelp => $i18n->get("friends view template hoverHelp")
 	);
-    $f->template(
+    $f->addField( "template",
         name      => "friendsEditTemplateId",
         value     => $self->getEditTemplateId,
         namespace => "Account/Friends/Edit",
         label     => $i18n->get("friends edit template label"),
         hoverHelp => $i18n->get("friends edit template hoverHelp")
 	);
-    $f->template(
+    $f->addField( "template",
         name      => "friendsSendRequestTemplateId",
         value     => $self->getSendRequestTemplateId,
         namespace => "Account/Friends/SendRequest",
@@ -124,7 +124,7 @@ sub editSettingsForm {
         hoverHelp => $i18n->get("friends send request template hoverHelp")
 	);
 
-    $f->template(
+    $f->addField( "template",
         name      => "friendsErrorTemplateId",
         value     => $self->getErrorTemplateId,
         namespace => "Account/Friends/Error",
@@ -132,7 +132,7 @@ sub editSettingsForm {
         hoverHelp => $i18n->get("friends error template hoverHelp")
 	);
 
-    $f->template(
+    $f->addField( "template",
         name      => "friendsConfirmTemplateId",
         value     => $self->getConfirmTemplateId,
         namespace => "Account/Friends/Confirm",
@@ -140,7 +140,7 @@ sub editSettingsForm {
         hoverHelp => $i18n->get("friends confirm template hoverHelp")
 	);
 
-    $f->template(
+    $f->addField( "template",
         name      => "friendsRemoveConfirmTemplateId",
         value     => $self->getRemoveConfirmTemplateId,
         namespace => "Account/Friends/Confirm",
@@ -148,7 +148,7 @@ sub editSettingsForm {
         hoverHelp => $i18n->get("friends remove confirm template hoverHelp")
 	);
 
-    return $f->printRowsOnly;
+    return $f;
 }
 
 #-------------------------------------------------------------------
diff --git a/t/tests/Test/WebGUI/Account/Friends.pm b/t/tests/Test/WebGUI/Account/Friends.pm
new file mode 100644
index 000000000..da1908822
--- /dev/null
+++ b/t/tests/Test/WebGUI/Account/Friends.pm
@@ -0,0 +1,18 @@
+package Test::WebGUI::Account::Friends;
+
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2009 Plain Black Corporation.
+#-------------------------------------------------------------------
+# Please read the legal notices (docs/legal.txt) and the license
+# (docs/license.txt) that came with this distribution before using
+# this software.
+#-------------------------------------------------------------------
+# http://www.plainblack.com                     info@plainblack.com
+#-------------------------------------------------------------------
+
+use strict;
+use warnings;
+
+use base qw/Test::WebGUI::Account/;
+
+1;