finspay

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'}