UnitedKnowledge/webgui_newsletter
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Internationalized system messages.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-05-31 16:22:22 +02:00
parent bcb265e188
commit 2490e166d3
15 changed files with 422 additions and 79 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/Mailing/Email.pm
View file

@ -7,6 +7,7 @@ use HTML::TreeBuilder;
use base 'WebGUI::Crud';
#----------------------------------------------------------------------------
sub crud_definition {
my $class = shift;
my $session = shift;
@ -59,6 +60,7 @@ sub crud_definition {
return $definition;
}
#----------------------------------------------------------------------------
sub getMailing {
my $self = shift;
my $session = $self->session;
@ -68,6 +70,7 @@ sub getMailing {
return $mailing;
}
#----------------------------------------------------------------------------
sub getQueuedTestEmails {
my $class = shift;
my $session = shift;
@ -82,6 +85,7 @@ sub getQueuedTestEmails {
return $it;
}
#----------------------------------------------------------------------------
sub getQueued {
my $class = shift;
my $session = shift;
@ -98,6 +102,7 @@ sub getQueued {
return $it;
}
#----------------------------------------------------------------------------
sub error {
my $self = shift;
my $message = shift;
@ -110,6 +115,7 @@ sub error {
return;
}
#----------------------------------------------------------------------------
sub absolutifyURIs {
my $self = shift;
my $content = shift;
@ -137,6 +143,7 @@ sub absolutifyURIs {
return $tb->as_HTML;
}
#----------------------------------------------------------------------------
sub send {
my $self = shift;
my $session = $self->session;
@ -151,8 +158,7 @@ sub send {
# Mail is a test mail but there is noone to send the result to
if ( $self->get( 'isTest' ) && !$self->get('recipientEmail') ) {
$self->error( 'Cannot send test mails without an override reciepint address' );
$self->error( 'Cannot send test mails without an override recipient address' );
return;
}
@ -216,6 +222,7 @@ sub send {
return;
}
#----------------------------------------------------------------------------
sub user {
my $self = shift;
my $session = $self->session;
@ -224,6 +231,7 @@ sub user {
return $user;
}
#----------------------------------------------------------------------------
sub registerBounced {
my $self = shift;
my $reason = shift;
@ -235,7 +243,7 @@ sub registerBounced {
bounceReason => $reason,
} );
#### TODO: Write to bounce log
#### TODO: Write to bounce log <= is this necessary? We're writing to the mail log already with most relevant info...
return;
}