lainwir3d/dolibarr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Validation du don lors du paiement en ligne

Browse Source
This commit is contained in:
Rodolphe Quiedeville 2003-01-18 15:53:39 +00:00
parent df1056c597
commit f4723742b6
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
htdocs/public/dons/bplc.php
View File

@ -1,5 +1,5 @@
<?PHP <?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 * 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 * 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 * 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(); $return = $retbplc->insertdb();
$don_id = substr($retbplc->ref_commande, 0, strlen($retbplc->ref_commande) -2);
print $don_id;
if($return) if($return)
{ {
if ($retbplc->check_key($retbplc->cle_acceptation)) if ($retbplc->check_key($retbplc->cle_acceptation))
@ -69,6 +75,13 @@ if($return)
*/ */
$don = new Don($db); $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);
} }
} }