diff --git a/lib/WebGUI/Mailing.pm b/lib/WebGUI/Mailing.pm index e2723e8..406e0e2 100644 --- a/lib/WebGUI/Mailing.pm +++ b/lib/WebGUI/Mailing.pm @@ -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' ); } #---------------------------------------------------------------------------- diff --git a/lib/WebGUI/i18n/Dutch/MailingManager.pm b/lib/WebGUI/i18n/Dutch/MailingManager.pm index 5855b77..5bcc421 100644 --- a/lib/WebGUI/i18n/Dutch/MailingManager.pm +++ b/lib/WebGUI/i18n/Dutch/MailingManager.pm @@ -58,6 +58,13 @@ our $I18N = { message => 'Verstuur test emails', }, + 'schedule' => { + message => 'Inroosteren', + }, + 'cancel' => { + message => 'Afbreken', + }, + }; 1; diff --git a/lib/WebGUI/i18n/English/MailingManager.pm b/lib/WebGUI/i18n/English/MailingManager.pm index fb0d08c..5115aeb 100644 --- a/lib/WebGUI/i18n/English/MailingManager.pm +++ b/lib/WebGUI/i18n/English/MailingManager.pm @@ -57,6 +57,14 @@ our $I18N = { 'send test mails' => { message => 'Send test emails', }, + + 'schedule' => { + message => 'Schedule', + }, + 'cancel' => { + message => 'Cancel', + }, + }; 1;