sub prepareOutput
{
	my $self = shift;
	my $node = shift;
	
	unless(defined($node))
	{
		warn "No parsable node or tree passed.";
		return;
	}
	
	# Add the current node tag to the stack
	$current_tag = $node->tag;
	unshift(@{$old_tag},$current_tag);
	
	# See if we are a frameset
	if($node->tag eq 'frameset')
	{
		$self->[FRAMESET]++;
	}
	
	if(DEBUG)
	{
		$self->[OUTPUT] .= $old_parent->[0] if defined($old_parent->[0]);
		$self->[OUTPUT] .= $old_tag->[0] if defined($old_tag->[0]);
	}
	
	# If we are a child
	if(defined($node->parent))
	{
		# Store the parent in the parent tag - we do this incase 
		# we meet some text and we don't have the parent call available
		$current_parent = $node->parent->tag;
		unshift(@{$old_parent},$current_parent);

		# Check that the parent allows us to be indented, accomodating
		# for comments.
		if(
			$current_parent eq 'td' 
		&&
			$node->parent->content_list < 1
		&&
			$node->tag eq 'a' || $node->tag eq 'img'
		)
		{
			$self->[OUTPUT] .= '<' . $node->tag;
		}
		elsif($self->[TAG]->canIndentChild($current_parent))
		{
			if($node->tag eq '~comment')
			{
				$self->[OUTPUT] .= "\t" x $mod;
				$self->[OUTPUT] .= '<!--';
			}
			else
			{
				$self->[OUTPUT] .= "\t" x $mod;
				$self->[OUTPUT] .= '<' . $node->tag;
			}
		}
		else
		{
			if($node->tag eq '~comment')
			{
				$self->[OUTPUT] .= '<!--';
			}
			else
			{
				$self->[OUTPUT] .= '<' . $node->tag;
			}			
		}
	}
	else
	{
		# No parent, print
		if($node->tag eq '~comment')
		{
			$self->[OUTPUT] .= "\t" x $mod;
			$self->[OUTPUT] .= '<!--';
		}
		else
		{
			$self->[OUTPUT] .= "\t" x $mod;
			$self->[OUTPUT] .= '<' . $node->tag;
		}
	}
	
	# Print the attributes for this tag, also takes care of space preserving
	# for XHTML
	$self->printAttributes($node);
		
	# Determine how we end this tag, ie if it is a terminal like <br> or <hr>
	my $is_terminal = 0;
	if($self->[TAG]->isTerminal($node->tag))
	{
		if($node->tag eq '~comment')
		{
			$self->[OUTPUT] .= ' --';
		}
		else
		{
			$self->[OUTPUT] .= ' /' if $self->[CONFIG]->setting('xhtml_output') eq 'yes';
		}
		$is_terminal = 1;
	}
	
	# This accomodates whether we indent future nodes or keep the 'tight'
	my @list = $node->content_list();
	#print $list[0],"\n";
	
	if(
		defined($current_parent) && $current_parent eq 'td' 
		&&
			$node->parent->content_list < 1
		&&
			$node->tag eq 'a' || $node->tag eq 'img'
	)
	{
		$self->[OUTPUT] .= ">";
	}
	elsif(
			$node->tag eq 'td'
		&&
			$node->content_list == 1
		&&
			defined($list[0]) && ref($list[0])
		&&
			$list[0]->tag eq 'img'
	)
	{
		$self->[OUTPUT] .= '>';
	}
	elsif(
			$node->tag eq 'td'
		&&
			$node->content_list > 1
		&&
			defined($list[0]) && ref($list[0])
		&&
			$list[0]->tag eq 'img'
	)
	{
		$self->[OUTPUT] .= ">\n" . ("\t" x ($mod + 1));
	}
	elsif($self->[TAG]->canIndentChild($old_parent->[0]) && ($self->[TAG]->canIndentChild($old_tag->[0])))
	{
		$self->[OUTPUT] .= ">\n";
	}
	else
	{
		$self->[OUTPUT] .= ">";
	}

	# Now traverse child nodes via recursion or, if the next bit is text,
	# print that out.
	$mod++;
	my @nodes = $node->content_list;
	my $n_count = @nodes;

#	foreach my $c ($node->content_list) 
	my $c;
	for(my $i = 0; $i < $n_count; $i++)
	{
		$c = $nodes[$i];
		next unless defined($c);
		if(ref $c)
		{
			if($i > 0 && (ref($nodes[$i - 1]) && $nodes[$i - 1]->tag eq 'a'))
			{
				$self->[OUTPUT] .= "\n";
			}
			$self->prepareOutput($c);
		}
		elsif($i > 0 && (ref($nodes[$i - 1]) && $nodes[$i - 1]->tag eq 'a'))
		{
			# Its an anchor followed by some punctuation. We need the pnuctuation
			# on the same line for IE.
			
			if($c =~ /^[.,);?\:]/)
			{
				$self->[OUTPUT] .= substr($c, 0, 1);
				$c = substr($c, 1, length($c));
			}
			$self->[OUTPUT] .= "\n";
			$self->printNodeText($c);
		}
		else
		{
			$self->printNodeText($c);
		}
	}
	$mod--;
	
	# Just in case we had an anchor at the end and need to indent
	if(ref $c && $c->tag eq 'a' && $node->tag =~ /p|td/)
	{
		$self->[OUTPUT] .= "\n";
	}
	
	# If our tag was not a terminal, we must $self->[OUTPUT] .= the end tag, taking care
	# to ensure we have followed our indentation rules.
	if(!$is_terminal)
	{
		if(DEBUG)
		{
			$self->[OUTPUT] .= $old_parent->[0] if defined($old_parent->[0]);
			$self->[OUTPUT] .= $old_tag->[0] if defined($old_tag->[0]);
		}
		
		if($node->tag eq 'a')
		{
			$self->[OUTPUT] .= '</a>';
		}
		elsif(
			$node->tag eq 'td'
			&&
				$node->content_list < 1
		)
		{
			$self->[OUTPUT] .= '</' . $node->tag . ">\n";
		}
		elsif(
			$node->tag eq 'td'
			&&
				$node->content_list == 1
			&&
				defined($list[0]) && ref($list[0])
			&&
				$list[0]->tag eq 'img'
		)
		{
			$self->[OUTPUT] .= '</' . $node->tag . ">\n";
		}
		elsif($self->[TAG]->canIndentChild($old_tag->[0]))
		{
			($node->tag eq '~comment') ? $self->[OUTPUT] .= "\t" x $mod . " -->\n" :	$self->[OUTPUT] .= "\t" x $mod . '</' . $node->tag . ">\n";
		}
		else
		{
			if($self->[TAG]->canIndentChild($old_parent->[0]))
			{
				($node->tag eq '~comment') ? $self->[OUTPUT] .= " -->\n": $self->[OUTPUT] .= '</' . $node->tag . ">\n";
			}
			else
			{
				($node->tag eq '~comment') ? $self->[OUTPUT] .= " -->": $self->[OUTPUT] .= '</' . $node->tag . ">";
			}
		}
	}
	
	# Remove our current bits off the stacks and return.
	$current_parent = shift( @{$old_parent});
	$current_tag = shift( @{$old_tag});
}