Merge branch 'master' into fusionax
[platal.git] / modules / payment / money / paypal.inc.php
CommitLineData
0337d704 1<?php
2/***************************************************************************
8d84c630 3 * Copyright (C) 2003-2009 Polytechnique.org *
0337d704 4 * http://opensource.polytechnique.org/ *
5 * *
6 * This program is free software; you can redistribute it and/or modify *
7 * it under the terms of the GNU General Public License as published by *
8 * the Free Software Foundation; either version 2 of the License, or *
9 * (at your option) any later version. *
10 * *
11 * This program is distributed in the hope that it will be useful, *
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
14 * GNU General Public License for more details. *
15 * *
16 * You should have received a copy of the GNU General Public License *
17 * along with this program; if not, write to the Free Software *
18 * Foundation, Inc., *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
21
22class PayPal
23{
0337d704 24 var $val_number;
25 var $urlform;
26 var $nomsite = "PayPal";
27 var $text;
eaf30d86 28
0337d704 29 var $infos;
30
0337d704 31 function PayPal($val)
32 {
f057316b 33 $this->val_number = $val;
0337d704 34 }
35
0337d704 36 function prepareform(&$pay)
37 {
8f60459a
SJ
38 // Documentation:
39 // https://www.paypal.com/developer
40 // Warning: the automatic return only works if we force the
41 // users to create a paypal account. We do not use it; thus
42 // the user must come back on the site.
98a7e9dc 43 global $globals, $platal;
0337d704 44
8f60459a 45 $this->urlform = 'https://' . $globals->money->paypal_site . '/cgi-bin/webscr';
98a7e9dc 46 $req = XDB::query("SELECT IF(nom_usage!='', nom_usage, nom) AS nom
c2ad0ec1 47 FROM auth_user_md5
8f60459a 48 WHERE user_id = {?}", S::v('uid'));
f057316b 49 $name = $req->fetchOneCell();
0337d704 50
51 $roboturl = str_replace("https://","http://",$globals->baseurl)
8f60459a
SJ
52 . '/' . $platal->ns . "payment/paypal_return/" . S::v('uid')
53 . "?comment=" . urlencode(Env::v('comment'));
0337d704 54
8f60459a 55 $this->infos = array();
f057316b 56
8f60459a 57 $this->infos['commercant'] = array(
f057316b 58 'business' => $globals->money->paypal_compte,
8f60459a 59 'rm' => 2,
f057316b 60 'return' => $roboturl,
8f60459a 61 'cn' => 'Commentaires',
f057316b 62 'no_shipping' => 1,
eaf30d86 63 'cbt' => empty($GLOBALS['IS_XNET_SITE']) ?
8f60459a
SJ
64 'Revenir sur polytechnique.org.' :
65 'Revenir sur polytechnique.net.'
66 );
f057316b 67
8f60459a 68 $info_client = array(
f057316b
FB
69 'first_name' => S::v('prenom'),
70 'last_name' => $name,
8f60459a
SJ
71 'email' => S::user()->bestEmail()
72 );
f057316b
FB
73
74 $res = XDB::query(
8f60459a
SJ
75 "SELECT a.text, l.name AS city, a.postalCode AS zip, a.countryiId AS country,
76 IF(t1.display_tel != '', t1.display_tel, t2.display_tel) AS night_phone_b
77 FROM auth_user_quick AS q
78 LEFT JOIN profile_addresses AS a ON (q.user_id = a.pid AND FIND_IN_SET('current', a.flags))
79 LEFT JOIN profile_phones AS t1 ON (t1.uid = a.uid AND t1.link_type = 'address'
80 AND t1.link_id = a.adrid)
81 LEFT JOIN profile_phones AS t2 ON (t2.uid = a.uid AND t2.link_type = 'user'
82 AND t2.link_id = 0)
83 LEFT JOIN geoloc_localities AS l ON (l.id = a.localityId)
84 WHERE q.user_id = {?}
85 LIMIT 1",
86 S::v('uid'));
c2ad0ec1 87 $this->infos['client'] = array_map('replace_accent', array_merge($info_client, $res->fetchOneAssoc()));
8f60459a
SJ
88 list($this->infos['client']['address1'], $this->infos['client']['address2']) =
89 explode("\n", Geocoder::getFirstLines($this->infos['client']['text'],
90 $this->infos['client']['zip'], 2));
91 unset($this->infos['client']['text']);
92
93 // We build the transaction's reference
94 $prefix = ($pay->flags->hasflag('unique')) ? str_pad("", 15, "0") : rand_url_id();
95 $fullref = substr("$prefix-xorg-{$pay->id}", -15);
96
97 $this->infos['commande'] = array(
98 'item_name' => replace_accent($pay->text),
99 'amount' => $this->val_number,
c2ad0ec1 100 'currency_code' => 'EUR',
8f60459a
SJ
101 'custom' => $fullref
102 );
f057316b 103
8f60459a 104 $this->infos['divers'] = array('cmd' => '_xclick');
0337d704 105 }
0337d704 106}
107
108$api = 'PayPal';
109
a7de4ef7 110// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
0337d704 111?>