From 4a1e506a35e48d6d5be0aaf495c5bf2c8d52a688 Mon Sep 17 00:00:00 2001
From: ethem <ethem>
Date: Fri, 5 May 2006 18:16:45 +0000
Subject: [PATCH] Admin can setup which credit card types will be accepted.
 Merged from MOODLE_16_STABLE.

---
 enrol/authorize/config.html | 19 ++++++++++++++++
 enrol/authorize/enrol.html  |  7 +-----
 enrol/authorize/enrol.php   | 43 +++++++++++++++++++++++++++++++++++++
 3 files changed, 63 insertions(+), 6 deletions(-)

diff --git a/enrol/authorize/config.html b/enrol/authorize/config.html
index 0e2f2c0777c..ab7cb8fc4f9 100755
--- a/enrol/authorize/config.html
+++ b/enrol/authorize/config.html
@@ -21,8 +21,13 @@ if (isset($CFG->an_cutoff)) {
     $frm->an_cutoff_hour = intval($CFG->an_cutoff) / 60;
     $frm->an_cutoff_min = intval($CFG->an_cutoff) % 60;
 }
+
 if (!isset($frm->an_cutoff_hour)) $frm->an_cutoff_hour = '0';
 if (!isset($frm->an_cutoff_min)) $frm->an_cutoff_min = '5';
+if (!isset($frm->acceptccs)) {
+    $frm->acceptccs = array_keys(get_list_of_creditcards());
+    $CFG->an_acceptccs = implode(',', $frm->acceptccs);
+}
 
 ?>
 
@@ -95,6 +100,20 @@ if (!isset($frm->an_cutoff_min)) $frm->an_cutoff_min = '5';
     <td><?php print_string("antestmode", "enrol_authorize") ?></td>
 </tr>
 
+<tr valign="top">
+    <td align="right">an_acceptccs:</td>
+    <td><?php
+    foreach (get_list_of_creditcards(true) as $key => $val) {
+        echo '<input type="checkbox" name="acceptccs[]" value="'.$key.'"';
+        if (stristr($CFG->an_acceptccs, $key) !== false) {
+            echo ' checked="checked"';
+        }
+        echo " /> $val<br />\n";
+    }
+    ?></td>
+    <td><?php print_string("adminacceptccs", "enrol_authorize") ?></td>
+</tr>
+
 <tr valign="top"><td colspan="3"><h4><?php print_string("adminauthorizeccapture", "enrol_authorize") ?></h4></td></tr>
 
 <tr valign="top">
diff --git a/enrol/authorize/enrol.html b/enrol/authorize/enrol.html
index 134e5a8cc5d..5dabac75443 100755
--- a/enrol/authorize/enrol.html
+++ b/enrol/authorize/enrol.html
@@ -59,12 +59,7 @@ $usercountry = empty($form->cccountry) ? $USER->country : $form->cccountry;
 <tr>
   <td align="right"><?php print_string("cctype", "enrol_authorize") ?>: </td>
   <td align="left"><?php
-  $CCTYPES = array(
-    'mcd' => 'Master Card', 'vis' => 'Visa',        'amx' => 'American Express',
-    'dsc' => 'Discover',    'dnc' => 'Diners Club', 'jcb' => 'JCB',
-    'swi' => 'Switch',      'dlt' => 'Delta',       'enr' => 'EnRoute'
-  );
-  choose_from_menu($CCTYPES, 'cctype', $form->cctype);
+  choose_from_menu(get_list_of_creditcards(), 'cctype', $form->cctype);
   if (!empty($this->ccerrors['cctype'])) { formerr($this->ccerrors['cctype']); }
   ?>
 </td>
diff --git a/enrol/authorize/enrol.php b/enrol/authorize/enrol.php
index d0e034a159a..9458b0a2500 100755
--- a/enrol/authorize/enrol.php
+++ b/enrol/authorize/enrol.php
@@ -3,6 +3,46 @@
 require_once $CFG->dirroot.'/enrol/enrol.class.php';
 require_once $CFG->dirroot.'/enrol/authorize/const.php';
 
+/**
+ * get_list_of_creditcards
+ *
+ * @param bool $getall
+ * @return array
+ */
+function get_list_of_creditcards($getall = false)
+{
+    global $CFG;
+    static $alltypes = array();
+
+    if (empty($alltypes)) {
+        $alltypes = array(
+        'mcd' => 'Master Card',
+        'vis' => 'Visa',
+        'amx' => 'American Express',
+        'dsc' => 'Discover',
+        'dnc' => 'Diners Club',
+        'jcb' => 'JCB',
+        'swi' => 'Switch',
+        'dlt' => 'Delta',
+        'enr' => 'EnRoute'
+        );
+    }
+
+    if ($getall || empty($CFG->an_acceptccs)) {
+        return $alltypes;
+    }
+
+    $ret = array();
+    $ccs = explode(',', $CFG->an_acceptccs);
+    $intersects = array_intersect(array_keys($alltypes), $ccs);
+
+    foreach ($intersects as $key) {
+        $ret[$key] = $alltypes[$key];
+    }
+
+    return $ret;
+}
+
 /**
  * enrolment_plugin_authorize
  *
@@ -464,6 +504,9 @@ class enrolment_plugin_authorize
         set_config('enrol_mailteachers', optional_param('enrol_mailteachers', ''));
         set_config('enrol_mailadmins', optional_param('enrol_mailadmins', ''));
 
+        $acceptccs = optional_param('acceptccs', array_keys(get_list_of_creditcards()));
+        set_config('an_acceptccs', implode(',', $acceptccs));
+
         // optional authorize.net settings
         set_config('an_avs', optional_param('an_avs', ''));
         set_config('an_test', optional_param('an_test', ''));