2 /************************************************************************
3 * M-XChange v0.2.1 Start: 04/24/2005 *
4 * ================ Last change: 05/19/2008 *
6 * -------------------------------------------------------------------- *
7 * File : what-del_sponsor.php *
8 * -------------------------------------------------------------------- *
9 * Short description : Edit sponsor account *
10 * -------------------------------------------------------------------- *
11 * Kurzbeschreibung : Sponsorenaccount aendern *
12 * -------------------------------------------------------------------- *
15 * $Tag:: 0.2.1-FINAL $ *
17 * Needs to be in all Files and every File needs "svn propset *
18 * svn:keywords Date Revision" (autoprobset!) at least!!!!!! *
19 * -------------------------------------------------------------------- *
20 * Copyright (c) 2003 - 2008 by Roland Haeder *
21 * For more information visit: http://www.mxchange.org *
23 * This program is free software; you can redistribute it and/or modify *
24 * it under the terms of the GNU General Public License as published by *
25 * the Free Software Foundation; either version 2 of the License, or *
26 * (at your option) any later version. *
28 * This program is distributed in the hope that it will be useful, *
29 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
30 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
31 * GNU General Public License for more details. *
33 * You should have received a copy of the GNU General Public License *
34 * along with this program; if not, write to the Free Software *
35 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, *
37 ************************************************************************/
39 // Some security stuff...
40 if ((!defined('__SECURITY')) || (!IS_ADMIN())) {
41 $INC = substr(dirname(__FILE__), 0, strpos(dirname(__FILE__), "/inc") + 4)."/security.php";
45 // Add description as navigation point
46 ADD_DESCR("admin", __FILE__);
48 if (REQUEST_ISSET_GET(('id'))) {
49 // Check for selected sponsor
50 $result = SQL_QUERY_ESC("SELECT email, gender, surname, family FROM `{!_MYSQL_PREFIX!}_sponsor_data` WHERE id='%s' LIMIT 1",
51 array(bigintval(REQUEST_GET('id'))), __FILE__, __LINE__);
52 if (SQL_NUMROWS($result) == 1) {
55 // Load data and remember it in constants
56 list($email, $gender, $surname, $family) = SQL_FETCHROW($result);
59 SQL_FREERESULT($result);
61 define('__EMAIL' , $email);
62 define('__GENDER' , TRANSLATE_GENDER($gender));
63 define('__SURNAME', $surname);
64 define('__FAMILY' , $family);
66 // Prepare message and send it away
67 $msg = LOAD_EMAIL_TEMPLATE("del_sponsor", REQUEST_POST('reason'), bigintval(REQUEST_GET('id')));
68 SEND_EMAIL($email, getMessage('ADMIN_SPONSOR_DEL_SUBJECT'), $msg);
71 SQL_QUERY_ESC("DELETE LOW_PRIORITY FROM `{!_MYSQL_PREFIX!}_sponsor_data` WHERE id='%s' LIMIT 1",
72 array(bigintval(REQUEST_GET('id'))), __FILE__, __LINE__);
75 SQL_QUERY_ESC("DELETE LOW_PRIORITY FROM `{!_MYSQL_PREFIX!}_sponsor_orders` WHERE sponsorid='%s' LIMIT 1",
76 array(bigintval(REQUEST_GET('id'))), __FILE__, __LINE__);
79 LOAD_TEMPLATE("admin_settings_saved", false, sprintf(getMessage('ADMIN_SPONSOR_DELETED'), bigintval(REQUEST_GET('id'))));
80 } elseif (REQUEST_ISSET_POST(('no'))) {
81 // Do not delete him...
82 LOAD_URL("modules.php?module=admin&what=list_sponsor&id=".bigintval(REQUEST_GET('id')));
85 list ($email, $gender, $sname, $fname) = SQL_FETCHROW($result);
87 // Transfer data to constants for the template
88 define('__EMAIL' , $email);
89 define('__SNAME' , $sname);
90 define('__FNAME' , $fname);
91 define('__GENDER', TRANSLATE_GENDER($gender));
92 define('__UID' , bigintval(REQUEST_GET('id')));
95 LOAD_TEMPLATE("admin_del_sponsor");
99 LOAD_TEMPLATE("admin_settings_saved", false, sprintf(getMessage('ADMIN_SPONSOR_404'), bigintval(REQUEST_GET('id'))));
102 // Not called by what-list_sponsor.php
103 LOAD_TEMPLATE("admin_settings_saved", false, getMessage('ADMIN_CALL_NOT_DIRECTLY'));