Let subject default to issue title not NLC title.

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

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',