From 597342b047f0677c690489612531da6f27bd967a Mon Sep 17 00:00:00 2001
From: moodler <moodler>
Date: Tue, 6 Jul 2004 16:00:43 +0000
Subject: [PATCH] Fixes not checked in yet

---
 enrol/enrol.class.php   |  4 +++-
 enrol/paypal/enrol.html |  3 ++-
 enrol/paypal/ipn.php    | 49 ++++++++++++++++++++++++++++++++++++-----
 3 files changed, 49 insertions(+), 7 deletions(-)

diff --git a/enrol/enrol.class.php b/enrol/enrol.class.php
index bb064835e7..be2701cefd 100644
--- a/enrol/enrol.class.php
+++ b/enrol/enrol.class.php
@@ -275,9 +275,11 @@ function cron() {
 function get_access_icons($course) {
     global $CFG;
 
+    $str = '';
+
     if ($course->guest) {
         $strallowguests = get_string("allowguests");
-        $str  = "<a title=\"$strallowguests\" href=\"$CFG->wwwroot/course/view.php?id=$course->id\">";
+        $str .= "<a title=\"$strallowguests\" href=\"$CFG->wwwroot/course/view.php?id=$course->id\">";
         $str .= "<img vspace=4 alt=\"$strallowguests\" height=16 width=16 border=0 src=\"$CFG->pixpath/i/guest.gif\"></a>&nbsp;&nbsp;";
     }
     if ($course->password) {
diff --git a/enrol/paypal/enrol.html b/enrol/paypal/enrol.html
index ff73a57317..7d59f3ad2d 100644
--- a/enrol/paypal/enrol.html
+++ b/enrol/paypal/enrol.html
@@ -18,11 +18,12 @@
 <input type="hidden" name="currency_code" value="<?php p($CFG->enrol_paypalcurrency) ?>">
 <input type="hidden" name="amount" value="<?php p($cost) ?>">
 
+<input type="hidden" name="for_auction" value="false">
 <input type="hidden" name="no_note" value="1">
 <input type="hidden" name="notify_url" value="<?php echo "$CFG->wwwroot/enrol/paypal/ipn.php"?>">
 <input type="hidden" name="return" value="<?php echo "$CFG->wwwroot/enrol/paypal/return.php?id=$course->id" ?>">
 <input type="hidden" name="cancel_return" value="<?php echo $CFG->wwwroot ?>">
-<input type="hidden" name="rm" value="1">
+<input type="hidden" name="rm" value="2">
 <input type="hidden" name="cbt" value="<?php print_string("continuetocourse") ?>">
 
 <input type="hidden" name="first_name" value="<?php p($USER->firstname) ?>">
diff --git a/enrol/paypal/ipn.php b/enrol/paypal/ipn.php
index 4062d7ec9b..f12609f2e7 100644
--- a/enrol/paypal/ipn.php
+++ b/enrol/paypal/ipn.php
@@ -38,6 +38,19 @@
     $data->payment_currency = $data->mc_currency;
 
 
+/// get the user and course records
+
+    if (! $user = get_record("user", "id", $data->userid) ) {
+        email_paypal_error_to_admin("Not a valid user id", $data);
+        die;
+    }
+
+    if (! $course = get_record("course", "id", $data->courseid) ) {
+        email_paypal_error_to_admin("Not a valid course id", $data);
+        die;
+    }
+
+
 /// Open a connection back to PayPal to validate the data
 
     $header = '';
@@ -62,13 +75,39 @@
         $result = fgets($fp, 1024);
         if (strcmp($result, "VERIFIED") == 0) {          // VALID PAYMENT!
 
-            // check the payment_status is Completed
 
-            if ($data->payment_status != "Completed") {   // Not complete?
-                email_paypal_error_to_admin("Transaction status is: $data->payment_status", $data);
+            // check the payment_status and payment_reason
+
+            // If status is not completed or pending then unenrol the student if already enrolled
+            // and notify admin
+
+            if ($data->payment_status != "Completed" and $data->payment_status != "Pending") {
+                unenrol_student($data->userid, $data->courseid);
+                email_paypal_error_to_admin("Status not completed or pending. User unenrolled from course", $data);
                 die;
             }
 
+            // If status is pending and reason is other than echeck then we are on hold until further notice
+            // Email user to let them know. Email admin.
+
+            if ($data->payment_status == "Pending" and $data->pending_reason != "echeck") {
+                email_to_user($user, getadmin(), "Moodle: Paypal payment", "Your Paypal payment is pending.");
+                email_paypal_error_to_admin("Payment pending", $data);
+                die;
+            }
+
+            // If our status is not completed or not pending on an echeck clearance then ignore and die
+            // This check is redundant at present but may be useful if paypal extend the return codes in the future
+
+            if (! ( $data->payment_status == "Completed" or 
+                   ($data->payment_status == "Pending" and $data->pending_reason == "echeck") ) ) {
+                die;
+            }
+
+            // At this point we only proceed with a status of completed or pending with a reason of echeck
+
+
+
             if ($existing = get_record("enrol_paypal", "txn_id", $data->txn_id)) {   // Make sure this transaction doesn't exist already
                 email_paypal_error_to_admin("Transaction $data->txn_id is being repeated!", $data);
                 die;
@@ -120,11 +159,11 @@
                 if (!empty($CFG->enrol_paypalmailstudents)) {
                     $a->coursename = "$course->fullname";
                     $a->profileurl = "$CFG->wwwroot/user/view.php?id=$user->id";
-                    email_to_user($user, $teacher, get_string("enrolmentnew"), get_string('welcometocoursetext', '', $a));
+                    email_to_user($user, $teacher, get_string("enrolmentnew", '', $course->shortname), get_string('welcometocoursetext', '', $a));
                 }
 
                 if (!empty($CFG->enrol_paypalmailteachers)) {
-                    email_to_user($teacher, $user, get_string("enrolmentnew"), "I have enrolled in your class via Paypal");
+                    email_to_user($teacher, $user, get_string("enrolmentnew", '', $course->shortname), "I have enrolled in your class via Paypal");
                 }
             }
 
-- 
2.39.5