Select Code to Download

        $result = update_string_to_form($reportoutput, $thisformobjid,
+ 'REPORTBODY')    ;
        if (not defined $result) {
...
                die 'error updating report body on form.';
            }
        }

sub update_string_to_form {
    my ($string, $formobjid, $column) = @_;
...
       return 0;
    }
}

 . . .
    $string =~ s/'/quot/g;
...
    my $sql = "update $formtablename set $column = '$string' where FOR
+MOBJID = '$formobjid'";

 . . .

 . . .
    my $dbh = DBI->connect($data_source, $username, $auth, \%attr);
    $string = $dbh->quote($string);
    my $sql = "update $formtablename set $column = '$string' where FOR
+MOBJID = '$formobjid'";
 . . .