From f1285c1c36ca49ad3e64531d6568b399022d2646 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Rainer=20G=C3=BCmpelein?= <ragu@sharee.bike>
Date: Tue, 15 Mar 2022 21:08:05 +0100
Subject: [PATCH] payone capture state

---
 copri4/main/src/Mod/Prelogic.pm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/copri4/main/src/Mod/Prelogic.pm b/copri4/main/src/Mod/Prelogic.pm
index 8cf2ebe..9235389 100755
--- a/copri4/main/src/Mod/Prelogic.pm
+++ b/copri4/main/src/Mod/Prelogic.pm
@@ -801,7 +801,7 @@ sub preinit(){
       int01 => $sum_paid,
       state => "$state",
     };
-    $ctt->{int14} = 2 if($state =~ /payone/);#set OPOS
+    $update_ctt->{int14} = 2 if($state =~ /payone/);#set OPOS
     $dbt->update_record($dbh,$update_ctt,$ctt);
 
     if($state =~ /payone/){
@@ -839,9 +839,16 @@ sub preinit(){
 	my $payoneret = $payone->captureSEPA_main(\%varenv,$ctadr,$ctt,$users_dms->{u_id});
        }
        #CC capture
-       if($ctt->{int03} == 2 && $ctt->{txt16} && $R::state =~ /Kreditkarte/){#CC
+       elsif($ctt->{int03} == 2 && $ctt->{txt16} && $R::state =~ /Kreditkarte/){#CC
 	my $payoneret = $payone->captureCC_main(\%varenv,$ctadr,$ctt,$users_dms->{u_id});
        }
+       else{
+	my $return_text = "payone capture fails, errorcode ($ctt->{int03} && $ctt->{txt16} && $R::state).";
+	$update_ctt->{txt23} = "$now_dt $return_text\n" . $ctt->{txt23};
+        $dbt->update_record($dbh,$update_ctt,$ctt);
+        return "failure::$return_text";
+
+	}
       }else{
         return "failure::Payone Geldeinzug nicht ausgeführt. Hat der Einzug bereits stattgefunden?";
       }