Add cancel buttons to sendTestMail and sendBatch

This commit is contained in:
Martin Kamerbeek 2010-06-02 16:49:49 +02:00
parent 0221e48476
commit 6010aa947f
3 changed files with 36 additions and 3 deletions

View file

@ -536,7 +536,17 @@ sub www_sendBatch {
name => 'sendDate',
label => $i18n->get( 'send mailing at' ),
);
$f->submit;
$f->submit(
value => $i18n->get( 'schedule' ),
extras => qq{class="forwardButton"},
);
my $cancelUrl = $session->url->page( 'newsletter=manage' );
$f->button(
value => $i18n->get( 'cancel' ),
extras => qq{onclick="window.location='$cancelUrl'" class="backwardButton"},
);
return WebGUI::Mailing::Admin->new($session)->getAdminConsole->render( $f->print, 'Send test emails' );
return WebGUI::Mailing::Admin->new($session)->getAdminConsole->render( $f->print, $i18n->get('schedule mailing') );
}
@ -626,9 +636,17 @@ sub www_sendTestEmails {
multiple=> 1,
options => \%options,
);
$f->submit( $i18n->get('send test mails') );
$f->submit(
value => $i18n->get('send test mails'),
extras => qq{class="forwardButton"},
);
my $cancelUrl = $session->url->page( 'newsletter=manage' );
$f->button(
value => $i18n->get( 'cancel' ),
extras => qq{onclick="window.location='$cancelUrl'" class="backwardButton"},
);
return $f->print;
return WebGUI::Mailing::Admin->new($session)->getAdminConsole->render( $f->print, 'Send test emails' );
}
#----------------------------------------------------------------------------

View file

@ -58,6 +58,13 @@ our $I18N = {
message => 'Verstuur test emails',
},
'schedule' => {
message => 'Inroosteren',
},
'cancel' => {
message => 'Afbreken',
},
};
1;

View file

@ -57,6 +57,14 @@ our $I18N = {
'send test mails' => {
message => 'Send test emails',
},
'schedule' => {
message => 'Schedule',
},
'cancel' => {
message => 'Cancel',
},
};
1;