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

Add cancel buttons to sendTestMail and sendBatch

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

24
lib/WebGUI/Mailing.pm
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' );
}
#----------------------------------------------------------------------------