This commit is contained in:
mynah
2020-01-29 03:27:24 -06:00
parent 57f19e749d
commit 8cede80fe7

View File

@@ -86,12 +86,13 @@ sub notify{
my $t =shift @{ _read ($data_path->child("spay/qNotify.q")->slurp,$d->{'tid'})}; my $t =shift @{ _read ($data_path->child("spay/qNotify.q")->slurp,$d->{'tid'})};
my @ra; my @ra;
my %h=qw/0 na 1 CH 2 M 3 G/; my %h=qw/0 na 1 CH 2 M 3 G/;
my $plazo = $r->{'payment_method_options'}->{'card'}->{'installments'}->{'plan'}->{'count'}; my $plazo = $r->{'payment_method_options'}->{'card'}->{'installments'}->{'plan'}->{'count'}//0;
my $cant=$r->{'amount'}/100;
my $students = $d->{'students'}; my $students = $d->{'students'};
my $basetxta = "$t->{'cnombre'} my $basetxta = "$t->{'cnombre'}
clave de pago stripe: $r->{'id'} clave de pago stripe: $r->{'id'}
plazo: $plazo meses plazo: $plazo meses
cantidad: $t->{'cantidad'} cantidad: $cant
"; ";
my $basetxtu = " my $basetxtu = "
$t->{'cnombre'} $t->{'cnombre'}