sub join_encode {
# --------------------------------------------------------

my %hash = @_;
my ($tmp, $col, $output);

foreach $col (@db_cols) {
$tmp = $hash{$col};
$tmp =~ s/^\s //g; # Trim leading blanks...
$tmp =~ s/\s $//g; # Trim trailing blanks...
$tmp =~ s/\Q$db_delim\E/~~/og; # Change delimeter to ~~ symbol.
$tmp =~ s/\n/ /g; # Change newline to extra space
$tmp =~ s/\r//g; # Remove Windows linefeed character.
$tmp =~ s/<([^>]|\n)*>//g; # Markup Mod: first remove all html.
$tmp =~ s/\[enter\]/< br >/ig; # Markup Mod: [ enter ] => < br >
$tmp =~ s/\[b\]/<b>/ig; # Markup Mod: => < b >
$tmp =~ s/\[\/b\]/<\/b>/ig; # Markup Mod: => < /b >
$tmp =~ s/\[i\]/<i>/ig; # Markup Mod: => < /i >
$tmp =~ s/\[\/i\]/<\/i>/ig; # Markup Mod: => < /i >
$output .= $tmp . $db_delim; # Build Output.
}
chop $output; # remove extra delimeter.
$output .= "\n"; # add linefeed char.
return $output;
}

sub split_decode {
# --------------------------------------------------------

my ($input) = shift;
my (@array) = split (/\Q$db_delim\E/o, $input, $#db_cols 1);
foreach (@array) {
s/~~/$db_delim/g; # Retrieve Delimiter..
}
return @array;
}