diff --git a/lib/Dojo/Model/Vdgproc.pm b/lib/Dojo/Model/Vdgproc.pm index 7dbd41c..4860ad8 100644 --- a/lib/Dojo/Model/Vdgproc.pm +++ b/lib/Dojo/Model/Vdgproc.pm @@ -86,12 +86,13 @@ sub notify{ my $t =shift @{ _read ($data_path->child("spay/qNotify.q")->slurp,$d->{'tid'})}; my @ra; 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 $basetxta = "$t->{'cnombre'} clave de pago stripe: $r->{'id'} plazo: $plazo meses - cantidad: $t->{'cantidad'} + cantidad: $cant "; my $basetxtu = " $t->{'cnombre'}