Renaming mailing tables to better names.
This commit is contained in:
parent
da2ea4d62b
commit
a1d8ab6f70
4 changed files with 16 additions and 5 deletions
|
|
@ -48,7 +48,7 @@ sub crud_definition {
|
|||
|
||||
my $definition = $class->SUPER::crud_definition( $session );
|
||||
|
||||
$definition->{ tableName } = 'WGMailing';
|
||||
$definition->{ tableName } = 'Mailing';
|
||||
$definition->{ tableKey } = 'mailingId';
|
||||
$definition->{ sequenceKey } = 'issueId';
|
||||
|
||||
|
|
@ -143,7 +143,7 @@ sub getStatusLine {
|
|||
my $db = $self->session->db;
|
||||
|
||||
my $sth = $db->read(
|
||||
'select status, isTest, count( status ) as cnt from WGMailing_queue where mailingId=? group by status,isTest',
|
||||
'select status, isTest, count( status ) as cnt from Mailing_email where mailingId=? group by status,isTest',
|
||||
[
|
||||
$self->getId,
|
||||
],
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue