Revision 753

Date:
2018/11/20 12:17:06
Author:
ahitrov
Revision Log:
etime fix

Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/services/mail_process.pl

     
    33 33 }
    34 34 $keeper->t_finish();
    35 35
    36 my $now = Contenido::DateTime->new;
    36 37 if ( @$ids ) {
    37 38 my $sendmail = Contenido::Mail->new();
    38 39 foreach my $row ( @$ids ) {
    … …  
    50 51 $data->{text} = $mail->body_text;
    51 52 }
    52 53 if ( my $err = $sendmail->send({ email => $data }) ) {
    53 $mail->status(3);
    54 $mail->status( 3 );
    54 55 $mail->error( $err );
    55 56 } else {
    56 $mail->status(1);
    57 $mail->error(undef);
    57 $mail->status( 1 );
    58 $mail->etime( $now->ymd('-').' '.$now->hms );
    59 $mail->error( undef );
    58 60 }
    59 61 $mail->store;
    60 62 }