mailto: links were not handled as mailto: links if protocol was present in link

git-svn-id: https://svn.typo3.org/TYPO3v4/Core/trunk@1641 709f56b5-9817-0410-a4d7-c38de5d9e867

diff --git a/ChangeLog b/ChangeLog
index 0079dcb..e4d6897 100755 (executable)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2006-07-14  Martin Kutschker  <martin.t.kutschker@blackbox.net>
+
+       * mailto: links were not handled as mailto: links if protocol was present in link
+
 2006-07-13 Karsten Dambekalns <karsten@typo3.org>
 
        * EM: Fixed bug #3299 (Language pack installation cannot handle spaces in filenames).

diff --git a/typo3/sysext/cms/tslib/class.tslib_content.php b/typo3/sysext/cms/tslib/class.tslib_content.php
index 18d8c3d..71f0be9 100755 (executable)
--- a/typo3/sysext/cms/tslib/class.tslib_content.php
+++ b/typo3/sysext/cms/tslib/class.tslib_content.php
@@ -5124,7 +5124,7 @@ class tslib_cObj {
                        $pU = parse_url($link_param);
 
                                // Detecting kind of link:
-                       if(strstr($link_param,'@') && !$pU['scheme'])   {               // If it's a mail address:
+                       if(strstr($link_param,'@') && (!$pU['scheme'] || $pU['scheme']=='mailto'))      {               // If it's a mail address:
                                $link_param = eregi_replace('^mailto:','',$link_param);
                                list($this->lastTypoLinkUrl,$linktxt) = $this->getMailTo($link_param,$linktxt,$initP);
                                $finalTagParts['url']=$this->lastTypoLinkUrl;
@@ -7540,4 +7540,4 @@ class tslib_controlTable  {
 if (defined('TYPO3_MODE') && $TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['tslib/class.tslib_content.php'])  {
        include_once($TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['tslib/class.tslib_content.php']);
 }
-?>
\ No newline at end of file
+?>