package EPrints::Plugin::Event::EmailComment;

use Cwd;
use EPrints::Plugin::Event;

@ISA = qw( EPrints::Plugin::Event );

sub email
{
	my( $self, $comment ) = @_;

	# get eprintid from comment obj, get userid from that eprint (the receiver of the email)
	# 	check receiver accepted to receive emails from EdShare (will required new field)
	# get userid from comment, this is the sender

	# perhaps the comment has been removed since?
	return 1 unless( defined $comment );

	# perhaps the eprint has been removed since?
	my $eprint = $self->{session}->eprint( $comment->get_value( "eprintid" ) );
	return 1 unless( defined $eprint );

	# internal error:
	my $receiver = $self->{session}->user( $eprint->get_value( "userid" ) );
	return 1 unless( defined $receiver );

	my $sender = $self->{session}->user( $comment->get_value( "userid" ) );
	return 1 unless( defined $sender );

	my $mail_body = $self->{session}->html_phrase(
		"lib/comment:notification_mail:body",
		eprint => $eprint->render_citation_link( "brief" ),
		sender => $sender->render_value( "name" ),
		comment => $comment->render_value( "content" ),
	);

#	my $mail_subject = $self->{session}->html_phrase( "lib/comment:notification_email:subject", user => $sender->render_value( "name" ) );

        return $receiver->mail( "lib/comment:notification_mail:subject", $mail_body );
}



1;