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

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 ) {