diff options
author | ivan <ivan> | 2012-01-15 05:31:59 +0000 |
---|---|---|
committer | ivan <ivan> | 2012-01-15 05:31:59 +0000 |
commit | 36d4c11cb8adf66c982c6f4c75b95fa4e6addd0b (patch) | |
tree | ef4c3fafa586dd1575c0b75f52b34029fa002b04 /FS/FS/part_export/acct_sql_status.pm | |
parent | a704467836221b68814deadbb1cb99a2af815c93 (diff) |
display spam status on account view, RT#15987
Diffstat (limited to 'FS/FS/part_export/acct_sql_status.pm')
-rw-r--r-- | FS/FS/part_export/acct_sql_status.pm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/FS/FS/part_export/acct_sql_status.pm b/FS/FS/part_export/acct_sql_status.pm index 78a086c..e6aeb20 100644 --- a/FS/FS/part_export/acct_sql_status.pm +++ b/FS/FS/part_export/acct_sql_status.pm @@ -33,16 +33,16 @@ sub export_getstatus { my($self, $svc_acct, $htmlref, $hashref) = @_; my $dbh = DBI->connect( map $self->option($_), qw(datasrc username password) ) - or do { $hashref->{'error'} = "can't connect: ". $DBI::errstr; return; }; + or return "can't connect: ". $DBI::errstr; ### #vacation settings ### my $vsth = $dbh->prepare('SELECT * FROM vacation WHERE email = ?') - or do { $hashref->{'error'} = "can't prepare: ". $dbh->errstr; return; }; + or return "can't prepare: ". $dbh->errstr; $vsth->execute( $svc_acct->email ) - or do { $hashref->{'error'} = "can't execute: ". $vsth->errstr; return; }; + or return "can't execute: ". $vsth->errstr; my $vrow = $vsth->fetchrow_hashref; if ( $vrow ) { @@ -60,9 +60,9 @@ sub export_getstatus { ### my $ssth = $dbh->prepare('SELECT * FROM users WHERE address = ?') - or do { $hashref->{'error'} = "can't prepare: ". $dbh->errstr; return; }; + or return "can't prepare: ". $dbh->errstr; $ssth->execute( $svc_acct->email ) - or do { $hashref->{'error'} = "can't execute: ". $ssth->errstr; return; }; + or return "can't execute: ". $ssth->errstr; my $srow = $ssth->fetchrow_hashref; if ( $srow ) { @@ -81,6 +81,9 @@ sub export_getstatus { #htmlref not implemented/used for this status export + + ''; #no errors + } 1; |