Hi
I am trying to set Metadata using formAPI(through form API i am calling an IPL file) when i use alert(); in form APi metadata is being set and if i remove alert(); metadata is not being set.
Below is the code::::
function Handler()
{
var dcrName = IWDCRInfo.getDCRName();
var dcrPath = IWDatacapture.getDCRPath(dcrName);
var server = window.location.hostname;
var params = new Object();
alert("1");
params.dcr_path = dcrPath;
params.dcrName = dcrName;
IWDatacapture.callServer("http://" + server + "/iw-bin/rbc/groupName.ipl", params, true);
alert("2");
}
My ipl File ::::
#!/app/Autonomy/Interwoven/TeamSite/iw-perl/bin/iwperl -w
use CGI::Carp;
use TeamSite::CGI_lite;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
# begin the cgitask
$|=1;
$cgi = TeamSite::CGI_lite->new();
$cgi->parse_data();
my $dcr_path = $cgi->{'form'}{'dcr_path'};
my $dcr_name = $cgi->{'form'}{'dcrName'};
my $dcr_folder = $dcr_path;
$dcr_folder =~ s/\/\/(.*?)\/(.*)/\/iwmnt\/$2/;
my $ea_dcrpath = $dcr_folder; #Group Metadata setting
$dcr_folder =~ s/(.*)\/(.*)/$1/;
$dcr_path =~ s/\/\/(.*?)\/(.*)/\/$2/;
$dcr_path =~ s/(.*)\/templatedata\/(.*)/templatedata\/$2/;
# Group Metadata setting
my $x="'";
my $group="group";
my $groupNameCmd = "/app/Autonomy/Interwoven/TeamSite/bin/iwattrib " . $x . $ea_dcrpath . $x . " " . $group;
my $groupName = `$groupNameCmd`;
my $Groupfirst = substr($groupName, 0,3);
if($Groupfirst eq 'APP'){
my $setGroup = "/app/Autonomy/Interwoven/TeamSite/bin/iwextattr -s TeamSite/Metadata/SharedGroup=" .$x.$groupName.$x. " " .$x.$ea_dcrpath.$x;
system($setGroup);
}
# Group Metadata setting
can any one help me.
Thanks