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

Let subject default to issue title not NLC title.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-06-09 13:24:46 +02:00
parent eef4a92166
commit 93478c77e1
2 changed files with 19 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -65,14 +65,20 @@ sub getSubject {
#----------------------------------------------------------------------------
sub getMailingProperties {
my $self = shift;
my $mailing = shift;
my $session = $self->session;
my $i18n = WebGUI::International->new( $session,'AssetAspect_Mailable' );
my $issue = $mailing->getIssue
? $mailing->getIssue
: $self
;
tie my %properties, 'Tie::IxHash', (
subject => {
fieldType => 'text',
label => $i18n->get( 'subject' ),
defaultValue=> $self->getTitle,
defaultValue=> $issue->getTitle,
},
styleTemplateId => {
fieldType => 'template',

14
lib/WebGUI/Mailing.pm
View file

@ -120,6 +120,16 @@ sub getAsset {
return $asset;
}
#----------------------------------------------------------------------------
sub getIssue {
my $self = shift;
my $session = $self->session;
my $issue = WebGUI::Asset->newByDynamicClass( $session, $self->get('issueId') );
#### TODO: error checking
return $issue;
}
#----------------------------------------------------------------------------
sub getQueuedEmailIterator {
my $self = shift;
@ -394,7 +404,7 @@ sub www_edit {
value => $self->getId,
);
my %fields = %{ $self->getAsset->getMailingProperties };
my %fields = %{ $self->getAsset->getMailingProperties( $self ) };
my $configuration = $self->get('configuration') || {};
while ( my( $name, $properties ) = each %fields ) {
$properties->{ name } = $name;
@ -549,7 +559,7 @@ sub www_editSave {
return $session->privilege->insufficient unless $self->admin->canManage;
my %fields = %{ $self->getAsset->getMailingProperties };
my %fields = %{ $self->getAsset->getMailingProperties( $self ) };
my $configuration = {};
if ( $self->admin->canOverride ) {
while ( my( $name, $properties ) = each %fields ) {