JS Error in Form API Code

I am trying to pass a value from Callserver code back to formAPI, I am encountering a js error when i try to access/send the perl variable

Call Server Code


....
Perl code
...
my $result=12345;
print <
Content-type: text/html; charset=utf-8
<script language="javascript">
 var api = parent.getScriptFrame();
 var test="$result";
 api.setIdCallback(test);
</script>
END
};

no error when i do so


....
Perl code
...

print <
Content-type: text/html; charset=utf-8
<script language="javascript">
 var api = parent.getScriptFrame();
 var test="1234567";
 api.setIdCallback(test);
</script>
END
};

FormAPI code


function setIdCallback(value){
        alert("In Callback Sub routine");
        alert("value");
        IWDatacapture.getItem("/rootpath/subpath").setValue(value);
}

JS error on bottom of the DataCapture

Error: Expected ';'
Code 0

I am able to sucessfully pass a static value though, how can i access the perl variable in callserver code without the js error

ENV: Interwoven TeamSite 6.7.2 Service Pack 1, RHEL

Find more posts tagged with

Comments

ISCBorisB

Log out your callServer CGI output somewhere right before you print it and check.

Chances are, you have EOLs in your $result so that var test="$result";
gets interpreted to something like:

var test="12345
";

ChatBox

I am trying to get the basic flow working, i am hard coding the result value as below

my $result=12345;

ChatBox

Thanks Boris, that was it!

ChatBox

when i execute the scipt via command line, it prints the following output

[HTML]
<script language="javascript">
var api = parent.getScriptFrame();
var test="1113";
api.setIdCallback(test);
</script>
[/HTML]

but when execute it through dcr(callserver), it is still showing the same error unless i harcode the perl variable. I have use the below code to trim the extra spaces and chomp the variable still doesnt help...any ideas?


sub trim($)
{
 my $string = shift;
 $string =~ s/^\s+//;
 $string =~ s/\s+$//;
 return $string;
}
# Left trim function to remove leading whitespace
sub ltrim($)
{
 my $string = shift;
 $string =~ s/^\s+//;
 return $string;
}
# Right trim function to remove trailing whitespace

sub rtrim($)
{
 my $string = shift;
 $string =~ s/\s+$//;
 return $string;
}