Merge pull request #5458 from deadlybutter/5349

Redirects users on homepage to proper path prefix

Author: Joe Kent

lib/modules/dosomething/dosomething_global/dosomething_global.module

@@ -16,6 +16,36 @@ define('DOSOMETHING_GLOBAL_DEFAULT_LANG_CODE', 'en-global');
 function dosomething_global_init() {
   global $user;
 
+  // Redirect people hitting the homepage or explore campaigns to their local version
+  $path = request_path();
+  if ((drupal_is_front_page() && is_numeric(arg(1))) || $path == 'campaigns') {
+    // Cannot use arg() as it doesn't return path prefixes
+    $args = explode('/', $path);
+
+    // Only apply logic to Global homepage
+    if (drupal_is_front_page()) {
+      if (!empty($path) && $args[0] != 'node') {
+        return;
+      }
+    }
+
+    $country_code = dosomething_settings_get_geo_country_code();
+    $language = dosomething_global_convert_country_to_language($country_code);
+    // No matching language, serve the global page
+    if ($language == NULL) {
+      return;
+    }
+
+    // Get users local path prefix and verify we support it
+    $path_prefix = dosomething_global_get_prefix_for_language($language);
+    if ($path_prefix == NULL) {
+      return;
+    }
+
+    // Redirect user
+    drupal_goto($path_prefix . '/' . current_path());
+  }
+
   // Verify we're dealing with a node edit with no translation specification in the URL
   if (arg(0) == "node" && is_numeric(arg(1)) && arg(2) == "edit" && null == arg(3)) {
     // Load the page node and user
@@ -317,6 +347,20 @@ function dosomething_global_convert_country_to_language($country) {
   return NULL;
 }
 
+/**
+ * Converts the given language into its assigned URL prefix.
+ *
+ * @param string language
+ *  The language to get the prefix for (eg: 'en', 'mx')
+ *
+ * @return
+ *  The URL prefix mapped to this language
+ */
+function dosomething_global_get_prefix_for_language($language) {
+  $languages = language_list();
+  return $languages[$language]->prefix;
+}
+
 /**
  * Get the appropriate language for the application.
  *