From f4723742b6bc4c78034e52dcd9c9609d3f8267c3 Mon Sep 17 00:00:00 2001
From: Rodolphe Quiedeville <rodolphe@quiedeville.org>
Date: Sat, 18 Jan 2003 15:53:39 +0000
Subject: [PATCH] Validation du don lors du paiement en ligne

---
 htdocs/public/dons/bplc.php | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/htdocs/public/dons/bplc.php b/htdocs/public/dons/bplc.php
index 55c551220a8..278260284f3 100644
--- a/htdocs/public/dons/bplc.php
+++ b/htdocs/public/dons/bplc.php
@@ -1,5 +1,5 @@
 <?PHP
-/* Copyright (C) 2002 Rodolphe Quiedeville <rodolphe@quiedeville.org>
+/* Copyright (C) 2002-2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -22,6 +22,8 @@
 
 /*
  * Gestion du retour du système de Cyberpaiement
+ * Cette page est appellée par le serveur de la BPLC lors de l'utilisation
+ * su système RSTS
  *
  */
 
@@ -57,6 +59,10 @@ $retbplc->ref_commande      = $CHAMP200;
 
 $return =  $retbplc->insertdb();
 
+
+$don_id = substr($retbplc->ref_commande, 0, strlen($retbplc->ref_commande) -2);
+print $don_id;
+
 if($return)
 {
   if ($retbplc->check_key($retbplc->cle_acceptation))
@@ -69,6 +75,13 @@ if($return)
        */
       
       $don = new Don($db);
+
+      $don_id = strstr($retbplc->ref_commande, 0, strlen($retbplc->ref_commande) -2);
+
+      // 5 correspond au paiement en ligne voir table c_paiement
+
+      $don->set_paye($don_id, 5); 
+
     }
 
 }