Thank you, MarcelEdward, for a patch to add paying group join fees.

Applied with changes (original patch would not compile)
Whitespace changes removed
Fixes Mantis #3926

1 files changed, 12 insertions, 1 deletions

diff --git a/OpenSim/Region/OptionalModules/Avatar/XmlRpcGroups/XmlRpcGroupsModule.cs b/OpenSim/Region/OptionalModules/Avatar/XmlRpcGroups/XmlRpcGroupsModule.cs
index b43a6ac..4a46949 100644
--- a/OpenSim/Region/OptionalModules/Avatar/XmlRpcGroups/XmlRpcGroupsModule.cs
+++ b/OpenSim/Region/OptionalModules/Avatar/XmlRpcGroups/XmlRpcGroupsModule.cs
@@ -724,7 +724,17 @@ namespace OpenSim.Region.OptionalModules.Avatar.XmlRpcGroups
                 remoteClient.SendCreateGroupReply(UUID.Zero, false, "A group with the same name already exists.");
                 return UUID.Zero;
             }
-            
+                        // is there is a money module present ?
+                        IMoneyModule money=remoteClient.Scene.RequestModuleInterface<IMoneyModule>();
+            if (money != null)
+            {
+                          // do the transaction, that is if the agent has got sufficient funds
+              if (!money.GroupCreationCovered(remoteClient)) {
+                remoteClient.SendCreateGroupReply(UUID.Zero, false, "You have got issuficient funds to create a group.");
+                return UUID.Zero;
+              }
+              money.ApplyGroupCreationCharge(remoteClient.AgentId);
+                        }
             UUID groupID = m_groupData.CreateGroup(grID, name, charter, showInList, insigniaID, membershipFee, openEnrollment, allowPublish, maturePublish, remoteClient.AgentId);
 
             remoteClient.SendCreateGroupReply(groupID, true, "Group created successfullly");
@@ -733,6 +743,7 @@ namespace OpenSim.Region.OptionalModules.Avatar.XmlRpcGroups
             SendAgentGroupDataUpdate(remoteClient, remoteClient.AgentId);
 
             return groupID;
+
         }
 
         public GroupNoticeData[] GroupNoticesListRequest(IClientAPI remoteClient, UUID groupID)