make the user invite email templatable

lib/WebGUI/Operation/Invite.pm

@@ -124,10 +124,16 @@ sub www_inviteUserSave {
     ##No sneaky attack paths...
     $message = WebGUI::HTML::filter($message);
 
-    ##Append the invitation url.
+    ##Create the invitation url.
     my $inviteId = $session->id->generate();
     my $inviteUrl = $session->url->append($session->url->getSiteURL, 'op=acceptInvite;code='.$inviteId);
-    $message .= "\n$inviteUrl\n";
+
+    my $var;
+    $var->{registrationUrl}   = $inviteUrl;
+    $var->{invitationMessage} = $message;
+
+    my $emailTemplate  = WebGUI::Asset::Template->new($session, $session->setting->get('userInvitationsEmailTemplateId'));
+    my $templatedEmail = $emailTemplate->process($var);
 
     ##Create the invitation record.
     $session->db->setRow(
@@ -141,7 +147,7 @@ sub www_inviteUserSave {
         $inviteId,
     );
 
-    $invitation->addText($message);
+    $invitation->addText($templatedEmail);
     $invitation->send;
 
     my $output = sprintf qq!<p>%s</p><a href="%s">%s</a>!,

lib/WebGUI/Operation/Settings.pm

@@ -411,6 +411,15 @@ sub definition {
         hoverHelp=>$i18n->get("user invitations email exists description"),
         defaultValue=>$session->setting->get("userInvitationsEmailExists"),
     });
+    push(@fields, {
+		tab=>"user",
+		fieldType=>"template",
+		name=>"userInvitationsEmailTemplateId",
+		label=>$i18n->get('user email template'),
+		hoverHelp=>$i18n->get('user email template description'),
+		namespace=>"userInvite/Email",
+		defaultValue=>$session->setting->get("userInvitationsEmailTemplateId"),
+		});    
 	# auth settings 
    	my $options;
    	foreach (@{$session->config->get("authMethods")}) {