#
# This software is Copyright 2005 by Elsevier Inc.  You may use it
# under the terms of the license at http://perl.plover.com/hop/LICENSE.txt .
#



###
### untag_html
###

## Chapter 1 section 7

sub untag_html {
  my ($html) = @_;
  return $html unless ref $html;   # It's a plain string

  my $text = '';
  for my $item (@{$html->{_content}}) {
    $text .= untag_html($item);
  }
    
  return $text;
}