IE does not know about '
[platal.git] / htdocs / paiement / index.php
CommitLineData
0337d704 1<?php
2/***************************************************************************
3 * Copyright (C) 2003-2004 Polytechnique.org *
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
22require_once("xorg.inc.php");
23new_skinned_page('paiement/index.tpl', AUTH_MDP);
24require_once('profil.func.inc.php');
25require_once('money.inc.php');
26
27// initialisation
28$op = Env::get('op', 'select');
29$meth = new PayMethod(Env::getInt('methode', -1));
30$pay = new Payment(Env::getInt('ref', -1));
31
32if($pay->flags->hasflag('old')){
33 $page->trig("La transaction selectionnée est périmée.");
34 $pay = new Payment();
35}
3b3e9d15 36$val = (Env::has('montant')) ? Env::get('montant') : $pay->montant_def;
0337d704 37
38if (($e = $pay->check($val)) !== true) {
39 $page->trig($e);
40}
41
42if ($op=='submit') {
43 $pay->init($val, $meth);
44 $pay->prepareform($pay);
45} else {
46 $res = $globals->xdb->iterator("SELECT timestamp, montant FROM paiement.transactions WHERE uid = {?} AND ref = {?} ORDER BY timestamp DESC", Session::getInt('uid', -1), Env::getInt('ref', -1));
47
48 if ($res->total()) $page->assign('transactions', $res);
49}
50
3b3e9d15 51$val = floor($val).".".substr(floor(($val - floor($val))*100+100),1);
0337d704 52$page->assign('montant',$val);
53
54$page->assign('meth', $meth);
55$page->assign('pay', $pay);
3b3e9d15 56$page->assign('evtlink', $pay->event());
0337d704 57
58$page->assign('prefix',$globals->money->mpay_tprefix);
59$page->run();
60?>