sub append_to_text {
	my $dbh   = shift;
	my $table = shift;
	my $id    = shift;
	my $col   = shift;
	my $data  = shift;

	local $dbh->{RaiseError} = 1;
	eval {
		$dbh->begin_work();
		my $read = qq| 
			SELECT $col FROM $table 
                         WHERE id = ? 
		     |;

		my $update = qq|
			UPDATE $table SET $col = ?
                         WHERE id = ?
			|;
		
		my $sth_read = $dbh->prepare($read);
		$sth_read->execute($id);
		my $row = $sth_read->fetchrow_hashref();
		$sth_read->finish();
		my $current = $row->{$col};
		$current .= $data;
		
		my $rtn = $dbh->do($update,undef,$current,$id);
		$dbh->commit() if ($rtn);
	};	
	if ($@) {
	      warn "Append Failed: $@\nStatement: $DBI::lasth->{Statement}";
	      eval { $dbh->rollback };
        }	
	
}