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

Make NewsletterCollection subscribable.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-04-22 14:56:19 +02:00
parent cfa018e04b
commit 0fa97d2d9d
3 changed files with 157 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lib/WebGUI/AssetAspect/Mailable.pm
View file

@ -6,6 +6,17 @@ use Class::C3;
use WebGUI::Macro;
##----------------------------------------------------------------------------
#sub configureMailingForm {
# my $self = shift;
# my $f = WebGUI::HTMLForm->new( $session, { action => $self->getUrl } );
# $f->hidden(
# name => 'func'
# value => '
#
# return $f;
#}
#----------------------------------------------------------------------------
sub definition {
my $class = shift;
@ -73,6 +84,17 @@ sub processContentAsUser {
return $content;
}
##----------------------------------------------------------------------------
#sub www_configureMailing {
# my $self = shift;
#
# my $f = $self->configureMailingForm;
#
# $f->submit( 'Next step' );
#
# return $self->processStyle( $f->print );
#}
#----------------------------------------------------------------------------
sub www_previewEmail {
my $self = shift;