[vhffs-dev] [2206] add links to related object documentation in mails sent after object approval /refusal

[subversion@xxxxxxxxxxxxx]

Revision: 2206
Author:   gradator
Date:     2012-07-15 21:41:20 +0200 (Sun, 15 Jul 2012)
Log Message:
-----------
add links to related object documentation in mails sent after object approval/refusal

Modified Paths:
--------------
    trunk/vhffs-api/src/Vhffs/Object.pm

Modified: trunk/vhffs-api/src/Vhffs/Object.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Object.pm	2012-07-15 19:08:47 UTC (rev 2205)
+++ trunk/vhffs-api/src/Vhffs/Object.pm	2012-07-15 19:41:20 UTC (rev 2206)
@@ -615,26 +615,31 @@
 
 	my $mail;
 
+	my $docstr = '';
+	$docstr = sprintf( gettext("Related documentation is available at:\n  %s\n\n"), $self->get_config->{'url_doc'} ) if $self->get_config->{'url_doc'};
+
 	if(defined $comments and $comments =~ /\S/) {
 		$mail = sprintf(
-			gettext( "Hello %s %s,\n\nYour request for a %s (%s) on %s was accepted, however, moderators wanted to add some precision:\n%s.\nPlease wait while we are creating your object.\n\nCheers,\nThe moderator team\n\n---------\n%s\n%s\n" ) ,
+			gettext( "Hello %s %s,\n\nYour request for a %s (%s) on %s was accepted, however, moderators wanted to add some precision:\n%s.\n\n%sPlease wait while we are creating your object.\n\nCheers,\nThe moderator team\n\n---------\n%s\n%s\n" ) ,
 		$user->get_firstname,
 		$user->get_lastname,
 		Vhffs::Functions::type_string_from_type_id( $self->get_type ),
 		$self->get_label,
 		$vhffs->get_config->get_host_name,
 		$comments,
+		$docstr,
 		$vhffs->get_config->get_host_name,
 		$vhffs->get_config->get_panel->{url}
 		);
 	} else {
 		$mail = sprintf(
-			gettext( "Hello %s %s,\n\nYour request for a %s (%s) on %s was accepted.\nPlease wait while we are creating your object.\n\nCheers,\nThe moderator team\n\n---------\n%s\n%s\n" ) ,
+			gettext( "Hello %s %s,\n\nYour request for a %s (%s) on %s was accepted.\n\n%sPlease wait while we are creating your object.\n\nCheers,\nThe moderator team\n\n---------\n%s\n%s\n" ) ,
 		$user->get_firstname,
 		$user->get_lastname,
 		Vhffs::Functions::type_string_from_type_id( $self->get_type ),
 		$self->get_label,
 		$vhffs->get_config->get_host_name,
+		$docstr,
 		$vhffs->get_config->get_host_name,
 		$vhffs->get_config->get_panel->{url}
 		);
@@ -680,8 +685,11 @@
 	my $prevlocale = setlocale( LC_ALL );
 	setlocale( LC_ALL , $user->get_lang );
 
+	my $docstr = '';
+	$docstr = sprintf( gettext("Related documentation is available at:\n  %s\n\n"), $self->get_config->{'url_doc'} ) if $self->get_config->{'url_doc'};
+
 	my $mail = sprintf(
-		gettext( "Hello %s %s,\n\nYour request for a %s (%s) on %s was refused.\n\nThe reason of refusal given by moderators is:\n%s\n\nYou can change the description and submit it again for moderation on the\npanel. You can delete this object on the panel if you have made\na mistake. Don't be upset, if you don't understand why your request has\nbeen refused, just reply to this email !\n\nCheers,\nThe moderator team\n\n---------\n%s\n%s\n" ) ,
+		gettext( "Hello %s %s,\n\nYour request for a %s (%s) on %s was refused.\n\nThe reason of refusal given by moderators is:\n%s\n\nYou can change the description and submit it again for moderation on the\npanel. You can delete this object on the panel if you have made\na mistake. Don't be upset, if you don't understand why your request has\nbeen refused, just reply to this email !\n\n%sCheers,\nThe moderator team\n\n---------\n%s\n%s\n" ) ,
 
 		$user->get_firstname,
 		$user->get_lastname,
@@ -689,6 +697,7 @@
 		$self->get_label,
 		$vhffs->get_config->get_host_name,
 		$self->get_refuse_reason,
+		$docstr,
 		$vhffs->get_config->get_host_name,
 		$vhffs->get_config->get_panel->{url}
 		);
@@ -730,8 +739,11 @@
 	my $prevlocale = setlocale( LC_ALL );
 	setlocale( LC_ALL , $user->get_lang );
 
+	my $docstr = '';
+	$docstr = sprintf( gettext("Related documentation is available at:\n  %s\n\n"), $self->get_config->{'url_doc'} ) if $self->get_config->{'url_doc'};
+
 	my $mail = sprintf(
-		gettext( "Hello %s %s,\n\nYour %s (%s) on %s has been deleted.\n\nThis is because it have been refused a long time ago and you didn't\nsubmit an update since.\n\nFor reminder, the reason of refusal was:\n%s\n\nDon't be upset, submit it again if you forgot to update it in time.\nIf you need further information, just reply to this email !\n\nCheers,\nThe moderator team\n\n---------\n%s\n%s\n" ) ,
+		gettext( "Hello %s %s,\n\nYour %s (%s) on %s has been deleted.\n\nThis is because it have been refused a long time ago and you didn't\nsubmit an update since.\n\nFor reminder, the reason of refusal was:\n%s\n\nDon't be upset, submit it again if you forgot to update it in time.\nIf you need further information, just reply to this email !\n\n%sCheers,\nThe moderator team\n\n---------\n%s\n%s\n" ) ,
 
 		$user->get_firstname,
 		$user->get_lastname,
@@ -739,6 +751,7 @@
 		$self->get_label,
 		$vhffs->get_config->get_host_name,
 		$self->get_refuse_reason,
+		$docstr,
 		$vhffs->get_config->get_host_name,
 		$vhffs->get_config->get_panel->{url}
 		);