[Cpan-forum-commit] rev 96 - trunk/lib/CPAN

[svn at pti.co.il]

Author: gabor
Date: 2005-02-06 13:16:33 +0200 (Sun, 06 Feb 2005)
New Revision: 96

Modified:
   trunk/lib/CPAN/Forum.pm
Log:
use the config method to retrive the FROM field

Modified: trunk/lib/CPAN/Forum.pm
===================================================================
--- trunk/lib/CPAN/Forum.pm	2005-02-06 11:12:08 UTC (rev 95)
+++ trunk/lib/CPAN/Forum.pm	2005-02-06 11:16:33 UTC (rev 96)
@@ -1021,8 +1021,7 @@
 
 MSG
 
-	my ($field) = CPAN::Forum::Configure->search({field => "from"});
-	my $FROM = $field->value;
+	my $FROM = $self->config("from");
 	$self->log->debug("FROM field set to be $FROM");
 
 	my %mail = (
@@ -1037,8 +1036,7 @@
 sub notify_admin {
 	my ($self, $user) = @_;
 
-	my ($field) = CPAN::Forum::Configure->search({field => "from"});
-	my $FROM = $field->value;
+	my $FROM = $self->config("from");
 
 	# TODO: the admin should be able to configure if she wants to get messages on
 	# every new user (field update_on_new_user)
@@ -1092,8 +1090,7 @@
 
 MSG
 
-	my ($from) = CPAN::Forum::Configure->search({field => "from"});
-	my $FROM = $from->value;
+	my $FROM = $self->config("from");
 	$self->log->debug("FROM field set to be $FROM");
 
 	my %mail = (
@@ -2047,8 +2044,7 @@
 
 	my $subject = sprintf ("[%s] %s",  $post->gid->name, $post->subject); # TODO _subject_escape ?
 
-	my ($field) = CPAN::Forum::Configure->search({field => "from"});
-	my $FROM = $field->value;
+	my $FROM = $self->config("from");
 	$self->log->debug("FROM field set to be $FROM");
 	my $admin = CPAN::Forum::Users->retrieve(1);
 	# send all messages to Admin, this shuld be configurabele