[phpws-comm-commits] modules/mailinglists/class Email.php,1.1,1.2

[Greg M. <bli...@us...>]

Update of /cvsroot/phpwebsite-comm/modules/mailinglists/class
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29379/class

Modified Files:
	Email.php 
Log Message:
Support Smart Tags in HTML emails.

Index: Email.php
===================================================================
RCS file: /cvsroot/phpwebsite-comm/modules/mailinglists/class/Email.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Email.php	2 Jan 2008 21:59:25 -0000	1.1
--- Email.php	22 Aug 2008 02:53:25 -0000	1.2
***************
*** 115,119 ****
          if ($format)
          {
!             return PHPWS_Text::parseOutput($this->msg_html);
          }
  
--- 115,129 ----
          if ($format)
          {
!             $address = PHPWS_Core::getHomeHttp();
! 
!             /* Support Smart Tags */
!             $text = PHPWS_Text::parseTag($this->msg_html);
! 
!             /* Need to add full URL since the text may be going in emails. */
!             $src = '@(src|href)="@';
!             $rpl = "\\1=\"$address";
!             $text = preg_replace($src, $rpl, $text);
! 
!             return PHPWS_Text::parseOutput($text);
          }