sub html_to_js_var {
	my($vars) = shift;
	
	# Declare
	my @html = split(/\n/, $vars->{'html'});
	my $var = $vars->{'js_var'};
	my $in_quotes = $vars->{'in_quotes'}; # A value of either 'single' or 'double' for ' or " respectively
	
	# Format
	
	foreach my $line (@html) {

		
		if ($in_quotes eq "single") {
			$line =~ s/\'/\\\'/g;
			$line =~ s/\</\<\'\+\'/g;
		} elsif ($in_quotes eq "double") {
			$line =~ s/\"/\\\"/g;
			$line =~ s/\</\<\"\+\"/g;			
		}
		
		
	}
	
	return @html;

}