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

Improved robustness and reload protection.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-07-07 12:21:16 +02:00
parent a858e8fb44
commit 913b4710e9
2 changed files with 23 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/WebGUI/Mailing.pm
View file

@ -376,6 +376,16 @@ sub www_cancel {
return;
}
#----------------------------------------------------------------------------
sub redirectToManager {
my $self = shift;
my ( $http, $url ) = $self->session->quick( qw{http url} );
$http->setRedirect( $url->page('newsletter=manage') );
return 'redirect';
}
#----------------------------------------------------------------------------
sub www_delete {
my $self = shift;
@ -385,7 +395,7 @@ sub www_delete {
$self->delete;
return WebGUI::Mailing::Admin->new($session)->www_view;
return $self->redirectToManager;
}
#----------------------------------------------------------------------------
@ -581,7 +591,9 @@ sub www_editSave {
#### TODO: Add error checking and required fields?
$self->update( { configuration => $configuration } );
return WebGUI::Mailing::Admin->new( $session )->www_view;
my $url = $session->url;
return $self->redirectToManager;
}
#----------------------------------------------------------------------------
@ -753,7 +765,6 @@ sub www_sendTestEmailsConfirm {
$i18n->get( 'send test mails' )
);
}
1;