$result = update_string_to_form($reportoutput, $thisformobjid, 'REPORTBODY') ;
if (not defined $result) {
die 'could not update report body on form';
} else {
if ($result != 0) {
die 'error updating report body on form.';
}
}
####
sub update_string_to_form {
my ($string, $formobjid, $column) = @_;
return undef unless defined $string; #string is required to be defined, but can be ''
return undef unless $formobjid; #formobjid is required
return undef unless $column; #column is required
unless ( grep($_ eq $column, formcolumns_from_formobjid($formobjid)) ){
warn ("invalid column for form");
return undef;
}
my $formtypeobjid = formtypeobjid_from_formobjid($formobjid);
return undef unless $formtypeobjid;
my $formtablename = formtablename_from_formtypeobjid($formtypeobjid);
return undef unless $formtablename;
my $sql = "update $formtablename set $column = '$string' where FORMOBJID = '$formobjid'";
#if ( harcommon::debug() ) {
if ( 1 ) {
warn '$formobjid : ',$formobjid;
warn '$formtypeobjid : ',$formtypeobjid;
warn '$formtablename : ',$formtablename;
warn '$string : ',$string;
warn '$sql : ',$sql;
}
my @results =
harcommon::runsql( $sql, $$DBSettings{'tnsname'}, $$DBSettings{'dbuser'}, $$DBSettings{'dbpass'} );
#if ( harcommon::debug() ) {
if ( 1 ) {
warn '@results: ',join(",",@results);
warn 'number of results: ', scalar(@results);
}
if (scalar(@results) != 0) {
my @trimmedresults = map {harcommon::trim($_)} @results;
return @trimmedresults;
} else {
return 0;
}
}
##
##
. . .
$string =~ s/'/quot/g;
$string =~ s/;/semi/g;
my $sql = "update $formtablename set $column = '$string' where FORMOBJID = '$formobjid'";
. . .
##
##
. . .
my $dbh = DBI->connect($data_source, $username, $auth, \%attr);
$string = $dbh->quote($string);
my $sql = "update $formtablename set $column = '$string' where FORMOBJID = '$formobjid'";
. . .