From 8cede80fe7f598dacc906629e85b8201f72b0afc Mon Sep 17 00:00:00 2001
From: mynah <bmynah@riseup.net>
Date: Wed, 29 Jan 2020 03:27:24 -0600
Subject: [PATCH] finspay

---
 lib/Dojo/Model/Vdgproc.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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