diff --git a/enrol/authorize/config.html b/enrol/authorize/config.html
new file mode 100755
index 00000000000..9d59cd4a446
--- /dev/null
+++ b/enrol/authorize/config.html
@@ -0,0 +1,107 @@
+
diff --git a/enrol/authorize/db/mysql.php b/enrol/authorize/db/mysql.php
new file mode 100755
index 00000000000..fff0330aa3f
--- /dev/null
+++ b/enrol/authorize/db/mysql.php
@@ -0,0 +1,19 @@
+dirroot/enrol/authorize/db/mysql.sql");
+ }
+
+ return $result;
+
+}
+
+?>
diff --git a/enrol/authorize/db/mysql.sql b/enrol/authorize/db/mysql.sql
new file mode 100755
index 00000000000..1b8873d1fd7
--- /dev/null
+++ b/enrol/authorize/db/mysql.sql
@@ -0,0 +1,12 @@
+CREATE TABLE `prefix_enrol_authorize` (
+ `id` int(10) unsigned NOT NULL auto_increment,
+ `cclastfour` int(11) default '0',
+ `ccexp` varchar(6) default '',
+ `cvv` varchar(4) default '',
+ `ccname` varchar(255) default '',
+ `courseid` int(11) NOT NULL default '0',
+ `userid` int(11) NOT NULL default '0',
+ `avscode` char(1) default 'P',
+ `transid` varchar(255) default '',
+ PRIMARY KEY (`id`)
+) TYPE=MyISAM COMMENT='Holds all known information about creditcard transactions';
diff --git a/enrol/authorize/enrol.html b/enrol/authorize/enrol.html
new file mode 100755
index 00000000000..49d9fb7c273
--- /dev/null
+++ b/enrol/authorize/enrol.html
@@ -0,0 +1,44 @@
+errormsg)) {formerr($this->errormsg);} ?>
+
+
+
+
+
enrol_currency $cost"; ?>
+
+
+
+
+
$strcost: ".
+ "wwwroot/course/view.php?id=$course->id\">";
+ $str .= "$currency".format_float($cost,2).'
';
+
+ }
+
+ return $str;
+}
+
+
+function config_form($frm) {
+ global $CFG;
+
+ $paypalcurrencies = array( 'USD' => 'US Dollars',
+ 'EUR' => 'Euros',
+ 'JPY' => 'Japanese Yen',
+ 'GBP' => 'British Pounds',
+ 'CAD' => 'Canadian Dollars'
+ );
+
+ $vars = array('enrol_cost', 'enrol_currency', 'an_login', 'an_tran_key', 'an_password', 'an_test',
+ 'enrol_mailstudents', 'enrol_mailteachers', 'enrol_mailadmins', 'enrol_allowinternal');
+ foreach ($vars as $var) {
+ if (!isset($frm->$var)) {
+ $frm->$var = '';
+ }
+ }
+
+ include("$CFG->dirroot/enrol/authorize/config.html");
+}
+
+function process_config($config) {
+
+ if (!isset($config->an_login)) {
+ $config->an_login = '';
+ }
+ set_config('an_login', $config->an_login);
+
+ if (!isset($config->an_password)) {
+ $config->an_password = '';
+ }
+ set_config('an_password', $config->an_password);
+
+ if (!isset($config->an_tran_key)) {
+ $config->an_tran_key = '';
+ }
+ set_config('an_tran_key', $config->an_tran_key);
+
+ if (!isset($config->an_test)) {
+ $config->an_test = '';
+ }
+ set_config('an_test', $config->an_test);
+
+ // ----
+ if (!isset($config->enrol_cost)) {
+ $config->enrol_cost = '0';
+ }
+ set_config('enrol_cost', $config->enrol_cost);
+
+ if (!isset($config->enrol_currency)) {
+ $config->enrol_currency = 'USD';
+ }
+ set_config('enrol_currency', $config->enrol_currency);
+
+ if (!isset($config->enrol_mailstudents)) {
+ $config->enrol_mailstudents = '';
+ }
+ set_config('enrol_mailstudents', $config->enrol_mailstudents);
+
+ if (!isset($config->enrol_mailteachers)) {
+ $config->enrol_mailteachers = '';
+ }
+ set_config('enrol_mailteachers', $config->enrol_mailteachers);
+
+ if (!isset($config->enrol_mailadmins)) {
+ $config->enrol_mailadmins = '';
+ }
+ set_config('enrol_mailadmins', $config->enrol_mailadmins);
+
+ if (!isset($config->enrol_allowinternal)) {
+ $config->enrol_allowinternal = '';
+ }
+ set_config('enrol_allowinternal', $config->enrol_allowinternal);
+
+ return true;
+}
+
+function email_cc_error_to_admin($subject, $data) {
+ $admin = get_admin();
+ $site = get_admin();
+
+ $message = "$site->fullname: Transaction failed.\n\n$subject\n\n";
+
+ foreach ($data as $key => $value) {
+ $message .= "$key => $value\n";
+ }
+ email_to_user($admin, $admin, "CC ERROR: ".$subject, $message);
+}
+
+
+//To avoid wrong (for PayPal) characters in sent data
+function sanitise_for_cc($text) {
+ global $CFG;
+
+ if (!empty($CFG->sanitise_for_paypal)) {
+ //Array of characters to replace (not allowed by PayPal)
+ //Can be expanded as necessary to add other diacritics
+ $replace = array('á' => 'a', //Spanish characters
+ 'é' => 'e',
+ 'í' => 'i',
+ 'ó' => 'o',
+ 'ú' => 'u',
+ 'Á' => 'A',
+ 'É' => 'E',
+ 'Í' => 'I',
+ 'Ó' => 'O',
+ 'Ú' => 'U',
+ 'ñ' => 'n',
+ 'Ñ' => 'N',
+ 'ü' => 'u',
+ 'Ü' => 'U');
+ $text = strtr($text, $replace);
+
+ //Make here other sanities if necessary
+
+ }
+
+ return $text;
+
+}
+
+
+} // end of class definition
+
+?>
diff --git a/enrol/authorize/version.php b/enrol/authorize/version.php
new file mode 100755
index 00000000000..ea8f21d941b
--- /dev/null
+++ b/enrol/authorize/version.php
@@ -0,0 +1,6 @@
+version = 2004081800;
+$module->requires = 2004081800;
+
+?>