====== pears.MakeHTMLReadable ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."MakeHTMLReadable" IS 
{create function MakeHTMLReadable 

/* Application Maintained Function / Procedure - DO NOT EDIT*/

(@HTMLText long varchar,@ReplaceBR smallint)
returns long varchar
as
begin
  declare @Start integer
  declare @End integer
  declare @Length integer
  -- ReplaceBR with CRLF 0 - No 1 - Yes
  -- Replace the HTML entity &amp; with the '&' character (this needs to be done first, as
  -- '&' might be double encoded as '&amp;amp;')
  set @Start=CHARINDEX('&amp;',@HTMLText)
  set @End=@Start+4
  set @Length=(@End-@Start)+1
  while(@Start > 0 and @End > 0 and @Length > 0) begin
      set @HTMLText=STUFF(@HTMLText,@Start,@Length,'&')
      set @Start=CHARINDEX('&amp;',@HTMLText)
      set @End=@Start+4
      set @Length=(@End-@Start)+1
    end
  -- Replace the HTML entity &lt; with the '<' character
  set @Start=CHARINDEX('&lt;',@HTMLText)
  set @End=@Start+3
  set @Length=(@End-@Start)+1
  while(@Start > 0 and @End > 0 and @Length > 0) begin
      set @HTMLText=STUFF(@HTMLText,@Start,@Length,'<')
      set @Start=CHARINDEX('&lt;',@HTMLText)
      set @End=@Start+3
      set @Length=(@End-@Start)+1
    end
  -- Replace the HTML entity &gt; with the '>' character
  set @Start=CHARINDEX('&gt;',@HTMLText)
  set @End=@Start+3
  set @Length=(@End-@Start)+1
  while(@Start > 0 and @End > 0 and @Length > 0) begin
      set @HTMLText=STUFF(@HTMLText,@Start,@Length,'>')
      set @Start=CHARINDEX('&gt;',@HTMLText)
      set @End=@Start+3
      set @Length=(@End-@Start)+1
    end
  -- Replace the HTML entity &amp; with the '&' character
  set @Start=CHARINDEX('&amp;amp;',@HTMLText)
  set @End=@Start+4
  set @Length=(@End-@Start)+1
  while(@Start > 0 and @End > 0 and @Length > 0) begin
      set @HTMLText=STUFF(@HTMLText,@Start,@Length,'&')
      set @Start=CHARINDEX('&amp;amp;',@HTMLText)
      set @End=@Start+4
      set @Length=(@End-@Start)+1
    end
  -- Replace the HTML entity &nbsp; with the ' ' character
  set @Start=CHARINDEX('&nbsp;',@HTMLText)
  set @End=@Start+5
  set @Length=(@End-@Start)+1
  while(@Start > 0 and @End > 0 and @Length > 0) begin
      set @HTMLText=STUFF(@HTMLText,@Start,@Length,' ')
      set @Start=CHARINDEX('&nbsp;',@HTMLText)
      set @End=@Start+5
      set @Length=(@End-@Start)+1
    end
  if(@ReplaceBR = 1) begin
      -- Replace any <br> tags with a newline
      set @Start=CHARINDEX('<br>',@HTMLText)
      set @End=@Start+3
      set @Length=(@End-@Start)+1
      while(@Start > 0 and @End > 0 and @Length > 0) begin
          set @HTMLText=STUFF(@HTMLText,@Start,@Length,"CHAR"(13)+"CHAR"(10))
          set @Start=CHARINDEX('<br>',@HTMLText)
          set @End=@Start+3
          set @Length=(@End-@Start)+1
        end
      -- Replace any <br/> tags with a newline
      set @Start=CHARINDEX('<br/>',@HTMLText)
      set @End=@Start+4
      set @Length=(@End-@Start)+1
      while(@Start > 0 and @End > 0 and @Length > 0) begin
          set @HTMLText=STUFF(@HTMLText,@Start,@Length,'CHAR(13) + CHAR(10)')
          set @Start=CHARINDEX('<br/>',@HTMLText)
          set @End=@Start+4
          set @Length=(@End-@Start)+1
        end
      -- Replace any <br /> tags with a newline
      set @Start=CHARINDEX('<br />',@HTMLText)
      set @End=@Start+5
      set @Length=(@End-@Start)+1
      while(@Start > 0 and @End > 0 and @Length > 0) begin
          set @HTMLText=STUFF(@HTMLText,@Start,@Length,'CHAR(13) + CHAR(10)')
          set @Start=CHARINDEX('<br />',@HTMLText)
          set @End=@Start+5
          set @Length=(@End-@Start)+1
        end
    end
  -- Remove anything between <whatever> tags
  set @Start=CHARINDEX('<',@HTMLText)
  set @End=LOCATE(@HTMLText,'>',CHARINDEX('<',@HTMLText))
  set @Length=(@End-@Start)+1
  while(@Start > 0 and @End > 0 and @Length > 0) begin
      set @HTMLText=STUFF(@HTMLText,@Start,@Length,'')
      set @Start=CHARINDEX('<',@HTMLText)
      set @End=LOCATE(@HTMLText,'>',CHARINDEX('<',@HTMLText))
      set @Length=(@End-@Start)+1
    end
  return LTRIM(RTRIM(@HTMLText))
end
}
</code>