From 8dd59e5d9211b645bc842827c2d7e2a6f30f49ec Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 25 Mar 2009 10:47:50 -0700
Subject: [PATCH] Add Friends Manager Group setting w/ i18n and help.

---
 lib/WebGUI/Operation/Settings.pm              |  1 +
 lib/WebGUI/i18n/English/WebGUI.pm             | 10 ++++-
 ...tifications.pl => installFriendManager.pl} | 44 ++-----------------
 3 files changed, 13 insertions(+), 42 deletions(-)
 rename sbin/{installNotifications.pl => installFriendManager.pl} (65%)

diff --git a/lib/WebGUI/Operation/Settings.pm b/lib/WebGUI/Operation/Settings.pm
index 41677cc83..6af1ccb81 100644
--- a/lib/WebGUI/Operation/Settings.pm
+++ b/lib/WebGUI/Operation/Settings.pm
@@ -482,6 +482,7 @@ sub definition {
         groupIdAdminCache
         groupIdAdminCron
         groupIdAdminDatabaseLink
+        groupIdAdminFriends
         groupIdAdminGraphics
         groupIdAdminGroup
         groupIdAdminGroupAdmin
diff --git a/lib/WebGUI/i18n/English/WebGUI.pm b/lib/WebGUI/i18n/English/WebGUI.pm
index e177351d9..a8c37b59f 100644
--- a/lib/WebGUI/i18n/English/WebGUI.pm
+++ b/lib/WebGUI/i18n/English/WebGUI.pm
@@ -3728,7 +3728,6 @@ LongTruncOk=1</p>
         lastUpdated => 0,
     },
 
-
     'settings groupIdAdminAdSpace label' => {
         message     => q{AdSpace},
         lastUpdated => 0,
@@ -3770,6 +3769,15 @@ LongTruncOk=1</p>
     },
 
 
+    'settings groupIdAdminFriends label' => {
+        message     => q{Friends},
+        lastUpdated => 0,
+    },
+    'settings groupIdAdminFriends hoverHelp' => {
+        message     => q{Group to manage friends.},
+        lastUpdated => 0,
+    },
+
     'settings groupIdAdminGraphics label' => {
         message     => q{Graphics},
         lastUpdated => 0,
diff --git a/sbin/installNotifications.pl b/sbin/installFriendManager.pl
similarity index 65%
rename from sbin/installNotifications.pl
rename to sbin/installFriendManager.pl
index 273637080..754846f21 100644
--- a/sbin/installNotifications.pl
+++ b/sbin/installFriendManager.pl
@@ -31,8 +31,7 @@ pod2usage( msg => "Must specify a config file!" ) unless $configFile;
 
 my $session = start( $webguiRoot, $configFile );
 
-installUserProfileFields($session);
-installSettings($session);
+installFriendManagerGroup($session);
 
 # Do your work here
 finish($session);
@@ -40,46 +39,9 @@ finish($session);
 #----------------------------------------------------------------------------
 # Your sub here
 
-sub installUserProfileFields {
+sub installFriendManagerGroup {
     my $session = shift;
-    WebGUI::ProfileField->create(
-        $session,
-        'receiveInboxEmailNotifications',
-        {
-            label          => q!WebGUI::International::get('receive inbox notifications','Message_Center')!,
-            visible        => 1,
-            required       => 0,
-            protected      => 1,
-            editable       => 1,
-            fieldType      => 'radioList',
-            dataDefault    => 0,
-            possibleValues => q!{
-message => WebGUI::International::get('full message','Message_Center'),
-note    => WebGUI::International::get('short notification','Message_Center'),
-}!,
-        },
-        4,
-    );
-    WebGUI::ProfileField->create(
-        $session,
-        'receiveInboxSMSNotifications',
-        {
-            label          => q!WebGUI::International::get('receive inbox sms','Message_Center')!,
-            visible        => 1,
-            required       => 0,
-            protected      => 1,
-            editable       => 1,
-            fieldType      => 'yesNo',
-            dataDefault    => 0,
-        },
-        4,
-    );
-}
-
-sub installSettings {
-    my $session = shift;
-    $session->setting->add('smsGateway', '');
-    $session->setting->add('sendInboxNotificationsOnly', '');
+    $session->setting->add('groupIdAdminFriends', 3);
 }
 
 #----------------------------------------------------------------------------